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Abstract 

Growth  and  volume  relationships  are  assembled  in  a  computer 
program,  written  in  FORTRAN  IV,  that  simulates  timber  manage- 
ment by  shelterwood,  seed  tree,  or  clearcutting  systems.  Tree 
growth,  intermediate  and  regeneration  cuts,  planting,  and 
catastrophic  losses  are  among  the  changes  computed.  Annual  and 
periodic  costs  and  returns,  analysis  of  rate  earned,  and  other 
statements  of  volume  and  value  are  printed.  Supersedes  USDA 
For.  Serv.  Res.  Pap.  RM-42. 

Oxford:  524.37:U681.3.  Keywords:  (^Stand  yield  tablesj  timber 
management,  forest  management,  simulation,  rkPinus  ponderosa?Pinus 
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Simulating  Changes  in  Even  Aged  Timber  Stands 

Clifford  A.  Myers 


Computer  program  MANAGD  (Myers  1968) 
was  developed  so  that  managers  could  simulate 
operations  in  managed,  even-aged  timber  stands. 
The  original  relationships  and  analytic  pro- 
cedures have  now  been  modified  and  improved 
to  the  point  where  computer  program  MANGD2, 
described  in  this  new  Paper,  has  been  written 
to  supersede  the  original  program  MANAGD. 
Major  modifications  permit  more  general  treat- 
ment of  regeneration  cuttings  and  more  accurate 
estimates  of  the  effects  of  intermediate  cuttings 
on  stand  characteristics.  Other  changes  are  the 
result  of  increases  in  available  data  and  exper- 
ience gained  in  use  of  program  MANAGD. 
Program  organization  now  provides  a  means 
for  accommodating  a  large  number  of  species 
with  a  single  copy  of  the  source  program. 

MANGD2  is  written  in  standard  FORTRAN 
IV  and  can  be  run  on  almost  any  computer  that 
provides  at  least  28,544  (67,600  octal)  memory 
locations. 

Persons  wishing  to  prepare  data  decks  and 
use  the  program  should  read  the  entire  Paper 
carefully.  Those  who  are  interested  only  in 
knowing  what  MANGD2  can  do  for  them  can 
concentrate  on  the  sections  headed  "Uses  of 
Simulation"  and  "An  Application  of  MANGD2." 

Uses  of  Simulation 

Several  characteristics  of  the  business  of 
timber  production  make  the  gathering  of 
information  on  which  to  base  management 
decisions  for  forest  lands  unusually  difficult. 
Among  these  problem  characteristics  are: 

1.  The  long  time  needed  to  mature  a  crop. 
Final  results,  of  a  series  of  changes  may  not 
be  evident  for  many  years,  especially  with 
slower  growing  species. 

2.  The  slowness  with  which  the  results  of  a 
single  change  may  appear.  Today's  questions 
may  not  be  answered  for  many  years.  Con- 
versely, the  desire  for  on-the-ground 
experimentation  will  be  restrained  because 
results  of  unfavorable  treatments  will  not 
disappear  for  some  time. 

3.  The  large  land  areas  and  the  numerous 
possible  combinations  of  biological  and 
economic  conditions  for  which  decisions 


must  be  made.  Many  possible  combinations 
result  in  many  possible  options,  among 
which  there  may  be  one  or  several  that  will 
conform  to  the  capabilities  and  goals  of  the 
organization. 
4.  The  expense  of  imposing  treatments  on 
forest  stands.  Expense  limits  the  number  of 
options  that  can  be  examined  on  the  ground 
and  increases  the  value  of  information. 

A  managerial  tool  designed  for  managers 
faced  with  such  problems  is  available.  It  is  the 
technique  of  mathematical  simulation  on  a 
digital  computer.  Simulation  is  particularly 
useful  where  an  outcome  depends  on  many 
variables  and  parameters,  and  the  computation 
steps  are  numerous  (Cremeans  1967). 

Simulation  involves  the  creation  and  oper- 
ation of  a  model  that  resembles  logically  the 
system  studied  (Martin  1968).  Solving  aproblem 
by  following  the  changes  that  occur  during 
model  operation  constitutes  the  technique  of 
simulation  (Gordon  1969).  The  system  may  be 
a  sawmill,  a  working  circle,  or  other  item  of 
interest.  Only  as  much  of  the  system  is 
modeled  as  is  necessary  to  answer  the  questions 
that  prompt  the  study.  Mathematical  models, 
such  as  MANGD2,  represent  all  necessary 
components  and  interactions  of  the  system  by 
a  series  of  mathematical  relationships.  Properly 
used,  they  can  aid  in  the  discovery  of  new  facts 
and  the  test  of  alternatives. 

Simulation  answers  questions  of  the  type: 
"What  would  happen  if  I  did  this  .  .  .?"  Once 
a  forest  system  has  been  modeled  and  the 
model  found  to  be  acceptable,  a  manager  has 
great  flexibility  in  imposing  changes  on  his 
forest  model.  He  can  vary  his  management  goals 
and  the  conditions  of  his  stands  with  no  ill 
effects  to  the  real  stands  from  any  undesirable 
alternatives.  With  adequate  mathematical  rela- 
tionships, the  manager  can  predict  probable 
future  performance  and  yield  of  his  forest 
(Chorafas  1965).  In  seconds,  he  can  get  an 
estimate  of  the  long-term  effects  of  proposed 
changes  on  growth,  yield,  and  money  return. 
The  changes  can  involve  rotation  length,  cutting 
cycle,  frequency  and  intensity  of  thinning,  and 
other  controls.  Estimates  of  potential  advantages 
from  reductions  in  certain  costs  or  from 
increases  in  selling  prices  can  be  obtained. 
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MANGD2  was  designed  to  be  one  of  a  set 
of  tools  useful  as  aids  in  decisionmaking.  The 
tools  and  a  possible  pattern  of  their  use  are: 

1.  The  manager  can  compute  yield  tables  for 
managed  stands  to  help  him  establish  con- 
trols on  his  operations.  For  example,  he  can 
determine  that  certain  combinations  of 
frequency  and  intensity  of  thinning  are  not 
acceptable  alternatives  because  more  than 
one  noncommercial  thinning  would  be 
needed.  Perhaps  stands  of  low  site  quality 
should  not  receive  any  treatment  other  than 
protection.  Yield  tables  will  help  decide  what 
the  limit  should  be.  Procedures  for  comput- 
ing yield  tables  are  described  elsewhere 
(Myers  1971). 

2.  Since  goals  will  not  be  set  on  the  basis  of 
growth  and  yield  in  volumetric  units  alone, 
the  manager  will,  therefore,  use  MANGD2, 
described  in  this  Paper,  to  obtain  additional 
information.  Only  through  simulation  can 
the  long-term  effects  of  changes  in  rotation 
length,  cutting  cycle,  and  other  controls  be 
determined.  Likewise,  simulation  is  needed 
to  express  the  results  in  terms  of  present 
worth  and  rate  earned.  MANGD2  will  usually 
be  used  to  answer  questions  of  the  type: 
"What  do  I  want  my  working  circle  to  be 
when  it  has  been  converted  to  managed 
stands?" 

3.  Once  the  controls  have  been  established 
(subject,  of  course,  to  future  reappraisal), 
the  manager  needs  a  guide  to  assist  him  in 
current  operations.  The  guide  should  contain 
such  items  as  allowable  cut,  present  and 
desired  distribution  of  acres  by  age  and  site 
quality  classes,  and  work  to  be  completed 
during  the  current  planning  period.  The 
guide  should  be  computed  at  least  annually, 
using  data  from  conventional  inventory  and 
other  sources  of  stand  description.  Proce- 
dures for  preparing  such  a  guide  are 
described  elsewhere  (Myers  1970). 

4.  Once  the  controls  have  been  established  and 
a  management  guide  is  available,  the 
manager  is  concerned  with  converting  his 
forest  to  match  his  goals.  A  simulation  pro- 
gram that  uses  actual  inventory  data  as 
stand  inputs  will  be  useful.  Simulation  with 
MANGD2  helps  set  the  goals;  a  second 
simulation  program,  not  restricted  to  growth 
of  managed  stands,  can  show  him  how  to 
attain  them. 

5.  An  important  step  in  decisionmaking  may 
be  necessary  after  each  of  the  previous 
steps.  This  is  the  return  to  earlier  steps  in 
the  decision  process  whenever  new  informa- 
tion indicates  a  need  for  such  action. 


Description  of  Program  MANGD2 

Program  MANGD2  is  a  tool  for  simulating 
the  management  of  even-aged  timber  stands  for 
wood  products.  It  contains  provisions  for  stand 
growth,  thinnings,  regeneration  cuts,  planting 
of  nonstocked  areas,  and  other  changes  in 
forest  conditions.  Inputs  to  the  program  permit 
wide  choice  in  the  management  alternatives  and 
stand  conditions  to  be  examined.  Possible  op- 
tions and  alternatives  are  described  in  the 
appropriate  parts  of  this  section.  Program 
organization  permits  ready  modifications  to  fit 
local  tree  species  or  utilization  standards. 

MANGD2  consists  of  a  main  program  and 
21  subroutine  subprograms  (appendix  1).  Con- 
tent and  purpose  of  each  routine  are  given  in 
the  sections  that  follow.  Variable  names  are 
defined  with  the  source  program  in  appendix  1 
and  in  the  listing  of  contents  of  the  data  deck. 
The  test  problem  described  on  page  16  and  re- 
ported in  appendix  2  provides  additional 
explanation  of  the  program. 

The  terms  batch,  test,  and  game  are  used 
to  identify  individual  simulation  jobs  performed 
with  various  groupings  of  alternatives.  The 
BATCH  name  identifies  one  entire  group  of 
tests  and  games  to  be  completed  as  a  single  job 
by  a  computer.  A  test  consists  of  one  or  more 
games,  all  of  which  are  based  on  a  single  yield 
table  and  one  set  of  stumpage  prices.  Games  of 
a  test  may  differ  from  one  another  in  one  or 
more  of  the  following:  (1)  distribution  of  acres 
by  age  classes,  (2)  total  area,  (3)  area  planted 
annually,  (4)  area  lost  annually,  (5)  costs  of 
operations,  and  (6)  limitations  on  the  annual 
cut. 

As  shown  in  the  program  listing  (appendix 
1),  a  single  program  deck  can  be  used  for 
several  tree  species.  One  program  at  a  central 
location  can  thus  serve  the  needs  of  many 
managers.  Each  part  of  a  subroutine  that  in- 
volves species-specific  relationships  begins  with 
a  computed  GO  TO  statement.  Each  GO  TO  is 
followed  by  as  many  FORTRAN  statements  for 
species-specific  relationships  as  desired.  The 
label  of  each  statement  appears  in  the  computed 
GO  TO.  The  GO  TO  counter  is  read  in  initially 
as  a  numerical  species  index,  together  with  the 
species  name  as  it  will  appear  in  table 
headings. 

In  appendix  1,  the  program  provides  for 
three  species.  In  each  set  of  species-specific 
relationships,  the  first  equation  applies  to  pon- 
der osa  pine  (Pinus  ponderosa  Laws.)  in  the 
Black  Hills  of  South  Dakota  and  Wyoming.  The 
second  equation  applies  to  lodgepole  pine 
(Pinus  contorta  Dougl.)  in  Colorado  and 
Wyoming.  Space  for  an  equation  applicable  to 
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a  third  species  is  occupied  by  a  dummy  state- 
ment in  the  form  of  a  CONTINUE  statement. 
The  relationships  included  can  be  replaced  by 
those  for  other  species,  or  each  computed  GO 
TO  can  be  expanded  to  provide  for  additional 
species. 


Main  Program 

The  main  program  calls  15  subroutines  in 
proper  sequence,  and  uses  counter  UK  to  call 
a  sixteenth  (REPRT1)  at  specified  intervals. 
The  first  two  subroutines  called  (BASIS1, 
CHEK1)  read  and  check  that  part  of  the  data 
deck  common  to  all  games  of  one  test.  The 
next  two  subroutines  (YIELD,  ANVOL)  com- 
pute and  print  a  yield  table  and  potential 
volumes  per  acre  at  each  year  of  stand  age. 

Of  the  remaining  12  subroutines,  one  may  be 
called  at  the  end  of  each  test,  six  are  called 
once  each  game,  four  are  called  each  year  of 
each  game,  and  REPRT1  is  called  as  needed. 
Four  routines  (BASIS2,  CHEK2,  START, 
AREAS)  read  and  check  the  data  deck  for  a 
game,  generate  a  working  circle  with  the  speci- 
fied number  of  acres  in  each  age  class,  and 
print  conditions  at  the  start  of  the  game.  Four 
routines  (COVER,  HRVST,  SUMS,  ANUAL) 
create  the  desired  annual  changes.  Annual  op- 
erations include  stand  growth,  thinnings, 
regeneration  cuts,  losses,  and  other  changes  in 
volume  and  value.  Dollar  values  useful  in 
determination  of  the  rate  earned  are  printed  at 
the  end  of  each  game  (WORTH),  as  is  a 
complete  summary  of  volumes  and  values 
(REPRT2).  An  optional  subroutine  (SUMRY) 
prints  selected  values  from  all  games  of  a  test, 
one  set  per  page,  to  simplify  comparisons. 

The  main  program  enters  BATCH  name  and 
the  number  of  tests  in  one  run  or  job  into  com- 
puter memory.  Loops  that  control  the  number 
of  tests,  the  number  of  games  in  a  test,  and 
the  number  of  years  in  a  game  are  in  the  main 
program. 


Subroutine  BASIS1 

BASIS1  is  called  once  each  test  to  read 
values  that  apply  to  all  games  of  the  test. 
Values  entered  include  stumpage  prices,  mini- 
mum commercial  volumes,  and  items  used  to 
compute  a  yield  table.  Stand  age  at  regeneration 
cut,  frequency  of  cut,  and  density  of  any 
residual  stand  are  entered  to  select  and  control 
the  silvicultural  system  used  for  regeneration. 
Controls  on  the  program  are  entered  as  number 
of  games  in  the  test,  number  of  years  in  each 


game,  and  the  columns  of  REPRT2  to  be 
printed  by  SUMRY.  Variables  that  pertain  to  an 
entire  test  are  initialized  by  BASIS1. 

Definitions  of  the  variables,  restrictions  on 
their  values,  and  other  necessary  information 
are  presented  in  the  section  headed  Data  Deck. 


Subroutine  CHEK1 

CHEK1  edits  the  data  cards  read  by  BASIS1 
to  insure  that  certain  errors  do  not  occur.  Ter- 
minal indexes  of  DO  loops  and  counters  of 
computed  GO  TO  are  checked  to  be  sure  they 
are  not  smaller  than  one  or  larger  than  the 
dimensions  specified  for  related  variables. 
Variables  used  in  growth  and  other  equations 
are  checked  to  be  sure  they  do  not  have  zero 
or  negative  values.  Additional  statements  can 
be  added  to  further  edit  the  data  cards,  such  as 
specifying  maximum  values  for  various 
variables. 

Identification  of  an  error  by  CHEK1  pre- 
vents continuation  of  the  job.  The  two  error 
flags  are  examined  when  control  is  returned 
from  CHEK1  to  the  main  program.  A  nonzero 
value  of  either  flag  will  cause  the  printing  of 
an  error  message  and  termination  of  the  job. 

Subroutine  YIELD 

YIELD  computes  and  prints  yield  tables  for 
managed,  even-aged  stands.  It  is  called  once 
each  test  to  produce  the  yield  table  that  will 
apply  to  all  games  of  the  test.  Values  in  each 
yield  table  reflect  prior  decisions  on  the  fre- 
quency and  intensity  of  intermediate  cuttings 
and  the  nature  of  reproduction  cuttings.  Data 
related  to  these  decisions  are  read  in  by 
BASIS1. 

Computations  performed  by  the  subroutine 
follow  procedures  described  in  detail  elsewhere 
(Myers  1971).  Average  stand  diameter  (d.b.h.) 
and  number  of  trees  per  acre  just  before  initial 
thinning  are  used  as  read  in  by  BASIS1. 
Reasonableness  of  the  values  will  have  been 
checked  previously  by  comparison  with  meas- 
urements of  actual  stands  of  suitable  ages, 
densities,  and  site  qualities.  Basal  area  and  the 
average  height  of  dominant  and  codominant 
trees  are  computed.  YIELD  then  calls  subroutine 
VOLS  to  compute  volumes  per  acre  before 
thinning.  Subroutine  CUTS  is  called  to  compute 
d.b.h.  after  cutting  to  the  residual  level  defined 
in  equations  based  on  values  in  table  1  and  by 
THIN  from  BASIS1.  The  stand  will  not  be 
thinned  if  its  density  is  already  at  or  below  the 
appropriate  residual.  Postthinning  basal  area 
and  average  height  are  computed  and  subroutine 
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Table  1. — Basal  areas  after  intermediate  cutting  in  relation  to  average  stand  diameter. 

Growing  stock  level  80. 
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Average 

Basal 

Average 
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Average 
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stand  d.b.h. 
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after  cutting 

per 

after  cutting 

per 

after  cutting 

per 

after  cutting 

per 

(Inches) 

acre 

(Inches) 

acre 

(Inches) 

acre 

(Inches) 

acre 

Sq .  ft. 

Sq .  ft. 

Sq .  f t . 

Sq .  ft 

2.0 

12.1 

4.0 

35.2 

6.0 

56.6 

8.0 

72.5 

2.1 

13.2 

4.1 

36.4 

6.1 

57.6 

8.1 

73.1 

2.2 

14 .4 

4.2 

37  .6 

6.2 

58.5 

8.2 

73.7 

2.3 

15  .5 

4.3 

38  .7 

6.3 

59 .4 

8.3 

74.3 

2.4 

16  .7 

4.4 

39 .9 

6.4 

60.  3 

8.4 

74 .8 

2.5 

17.9 

4.5 

41.0 

6.5 

61.2 

8.5 

75.3 

2.6 

19.0 

4.6 

42.2 

6.6 

62.1 

8.6 

75.8 

2.7 

20.2 

4.7 

43.4 

6.7 

62  .9 

8.7 

76.3 

2.8 

21.3 

4.8 

44 .5 

6  .8 

63.8 

8.8 

76  .7 

2  .9 

22  .5 

4 .9 

45 .7 

6.9 

64.6 

8.9 

77.1 

3 .0 

23 . 7 

5 .0 

46  .8 

7.0 

65  .4 

9.0 

77 .5 

3.1 

24.8 

5.1 

47.8 

7.1 

66.2 

9.1 

77.9 

3.2 

26.0 

5.2 

48.8 

7.2 

67.0 

9.2 

78.2 

3.3 

27.1 

5.3 

49.8 

7.3 

67.7 

9.3 

78.5 

3.4 

28.3 

5.4 

50.8 

7.4 

68.5 

9.4 

78.8 

3.5 

29.5 

5.5 

51.8 

7.5 

69.2 

9.5 

79.1 

3.6 

30.6 

5.6 

52.8 

7.6 

69.9 

9.6 

79.3 

3.7 

31.8 

5.7 

53.8 

7.7 

70.6 

9.7 

79.5 

3.8 

32.9 

5.8 

54.7 

7.8 

71.2 

9.8 

79.7 

3.9 

34.1 

5.9 

55.7 

7.9 

71.9 

9.9 

79.8 

10.0+  80.0 


VOLS  is  called  again  to  compute  volumes  per 
acre.  D.b.h.  is  then  increased  by  the  amount  of 
periodic  growth,  and  the  number  of  trees  is 
reduced,  if  necessary.  CUTS  is  called  again  to 
perform  the  second  thinning,  this  time  to  level 
DLEV  read  in  by  BASIS1.  The  sequence  of 
steps  is  repeated  as  many  times  as  necessary 
until  terminated  by  the  final  cut  at  the  age 
appropriate  to  the  regeneration  system  used. 
Stand  age  and  other  state  variables  are  printed 
at  the  end  of  each  series  of  operations. 

Table  1  gives  residual  basal  area  after  inter- 
mediate cutting  for  various  average  stand 
diameters.  The  values  represent  one  possible 
series  of  densities  that  could  be  used  to  guide 
successive  thinnings  in  a  stand.  Basal  area 
increases  with  diameter  until  10.0  inches 
diameter  is  reached,  and  remains  constant 
thereafter.  The  series  in  table  1  is  labeled 
"growing  stock  level  80"  to  indicate  that  reserve 
basal  area  is  80.0  square  feet  per  acre  when  d.b. 
h.  after  cutting  is  10.0  inches  or  larger.  Other 
stocking  levels  are  named  the  same  way.  For 
example,  stocking  level  100  means  that  reserve 
basal  area  will  be  100  square  feet  when  d.b.h. 


after  cutting  is  10.0  inches  or  larger.  Basal  areas 
for  level  100  and  for  diameters  smaller  than  10.0 
inches  are  obtained  by  multiplying  each  basal 
area  of  level  80  by  the  amount  100/80.  Values 
for  other  stocking  levels,  perhaps  from  50  to 
160,  are  computed  similarly.  The  ratio  is  com- 
puted frequently  in  MANGD2  as  THIN/GIDE  or 
DLEV/GIDE. 

Data  used  to  obtain  the  base  curve,  level  80 
in  table  1,  came  from  permanent  and  temporary 
plots.  A  graph  of  desired  basal  area  over 
average  stand  d.b.h.  was  drawn  for  plots  of 
local  average  site  quality.  "Best"  stand  density 
for  each  average  diameter  sampled  was  based 
on  such  criteria  as  production  in  cubic  feet  and 
probable  length  of  saw-log  rotations. 

Increases  in  d.b.h.  due  to  tree  growth,  per- 
centages of  mortality,  and  other  periodic 
changes  in  stand  conditions  are  for  a  specific 
length  of  projection  period.  The  length,  in 
number  of  years,  is  entered  as  RINT  by 
BASIS1.  Equations  in  the  listing  of  YIELD  in 
appendix  1  are  for  a  projection  period  of  10 
years.  Intervals  between  intermediate  cuttings 
are  one  or  more  projection  periods  long. 
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The  yield  table  will  show  numbers  of  trees 
and  other  values  appropriate  to  the  regeneration 
system  selected.  Data  card  type  5  that  controls 
the  operations  has  entries  in  up  to  seven  fields: 
REGN(l),  VLLV(l),  CYCNW(l).  REGN  (2), 
VLLV(2),  CYCNW(2),  and  REGN  (3).  If  a  value 
is  punched  for  REGN(l)  and  all  other  fields  are 
left  blank,  the  yield  table  will  show  regeneration 
by  clearcutting.  The  value  entered  for  REGN(l) 
is  the  desired  rotation  length.  YIELD  will,  how- 
ever, add  a  20-year  period  to  REGN(l)  so  the 
final  entry  in  the  table  will  be  REGN(l)  plus 
20.  This  permits  computation  of  volumes  for 
stands  that  will  not  be  regenerated  until  they 
have  passed  rotation  age.  The  table  may  show 
an  intermediate  cut  at  what  is  really  rotation 
age.  For  stands  cut  at  or  beyond  rotation  age, 
the  apparent  intermediate  cut  is  added  to  the 
reported  reserve  to  get  correct  final  volume. 

If  a  value  is  assigned  REGN(2),  there  must 
also  be  values  for  REGN(l),  VLLV(l),  and 
CYCNW(l).  A  value  for  REGN(2)  and  a  blank 
for  REGN(3)  calls  for  the  seed  tree  system  or 
two-cut  shelterwood.  REGN(l)  is  stand  age  at 
time  of  first  cut  and  REGN(2)  is  stand  age  at 
final  cut.  VLLV(l)  is  the  percentage  of  the 
growing  stock  level  used  for  intermediate  cuts 
(DLEV)  that  will  remain  after  the  cut  at  age 
REGN(l).  For  example,  if  DLEV  is  100  and 
VLLV(l)  is  .50,  the  residual  stand  at  REGN(l) 
will  have  a  basal  area  of  50  square  feet. 
CYCNW(l)  is  the  number  of  years  from  REGN 
(1)  to  REGN(2). 

Assignment  of  a  nonzero  value  to  REGN(3) 
calls  for  use  of  three-cut  shelterwood.  The  first 


removal  cut  will  occur  at  age  REGN(l),  a 
second  cut  at  REGN(2),  and  the  final  cut  at 
REGN(3).  VLLV(2),  like  VLLV(l),  is  a  per- 
centage of  the  growing  stock  level  DLEV.  Now, 
however,  DLEV  is  not  the  value  read  in 
originally  but  the  level  computed  with  VLLV(l) 
for  the  first  cut.  For  example,  if  the  original 
DLEV  is  100  and  VLLV(l)  and  VLLV(2)  both 
equal  .50,  reserve  basal  area  after  the  second 
cut  at  REGN(2)  will  be  25  square  feet  (100  x  .5 
x  .5).  Other  variables  are  as  explained  above. 

Preparing  input  data  for  the  clearcutting 
option  is  not  complicated.  Age  at  initial  thinning 
(AGEO),  interval  between  cuts  (CYCL),  and 
rotation  length  (REGN(l))  control  the  opera- 
tions. Computations  proceed  until  adjusted 
rotation  age  is  reached.  The  interval  between 
cuts  must  be  equal  to  or  some  multiple  of  the 
projection  period  of  the  growth  and  mortality 
equations  (RINT)  and  a  factor  of  the  interval 
between  AGEO  and  REGN(l). 

Tests  involving  seed  tree  or  shelterwood 
systems  require  much  more  advance  planning. 
Events  in  the  lives  of  the  old  and  new  crops 
must  be  scheduled  sensibly  in  relation  to  each 
other.  The  final  stand  is  not  removed  at  or 
near  rotation  age  but  at  an  older  age,  the 
felling  age.  Length  of  the  rotation  becomes  the 
length  of  the  period  between  similar  cuts,  and 
intervening  activities  must  be  well  described 
chronologically. 

Scheduling  of  operations  may  be  assisted 
by  drawing  a  sketch  similar  to  figure  1.  The 
stand  shown  is  managed  under  a  rotation  of 
110  years,  with  a  final  felling  age  of  140  years. 


Figure  1. — 

Volume  changes  with 
three-cut  shelterwood. 
Management  controls: 


cutting  cycle,  20  years; 
rotation,  110  years; 
final  felling  age,  140  years. 
Labels  are  the  variable 
names  used  in  MANGD2. 


0        20        40        60        80        100       120  140 
90        110  140  0  30       50  70 

Stand  age  (years) 


5 


Intermediate  cuts  are  made  at  20-year  intervals, 
with  the  first  thinning  at  time  of  the  final  cut 
of  the  overstory.  The  two  removal  cuts  are  20 
years  apart.  A  final  cut  is  made  10  years  after 
the  second  removal  cut.  Inspection  of  the  sketch 
shows  that  overstory  and  understory  operations 
occur  in  proper  relation  to  each  other  and  that 
similar  events  occur  at  intervals  equal  to  the 
110-year  rotation  desired. 

It  is  often  desirable  to  make  simulations 
more  realistic  by  varying  the  values  estimated 
by  equations  or  contained  in  tabulations.  For 
example,  repeated  computations  of  DBHO  with- 
out change  in  values  of  the  independent 
variables  will  always  give  the  same  numerical 
result.  In  reality,  actual  and  estimated  values 
differ  frequently.  A  way  of  providing  variability 
in  estimates  of  DBHO  is  contained  in  the  pro- 
gram segment  between  statements  250  and  300. 
Similar  statements  could  be  written  for  other 
variables. 

Variability  is  obtained  in  three  steps:  (1) 
generation  of  a  pseudorandom  number,  (2)  use 
of  this  number  as  an  independent  variable  to 
compute  the  value  of  a  residual  (range:  -0.3  to 
+0.3  inch),  and  (3)  addition  of  the  residual  to 
the  computed  value  of  DBHO.  The  pseudo- 
random number  generator,  statement  250,  is  of 
the  form: 

Xi  =  AXi.!  +  C  (modulo  M) 


(Greenberger  1961).  Values  of  all  elements  of  the 
generator  are  specified  except  for  Xj_i,  which  is 
read  in  as  variable  GNTR.  The  statement  to 
compute  RES  is  an  empirical  distribution  func- 
tion obtained  by  fitting  a  polynomial  to  the 
normally  distributed  residuals  of  the  DBHO 
equation  (Evans  et  al.  1967).  An  approximation 
to  the  normal  distribution  function  may  also  be 
used  (Burr  1967). 

Subroutine  VOLS 

VOLS  is  called  by  subroutine  YIELD  to 
compute  total  cubic  feet  per  acre  and  the 
factors  used  to  obtain  volumes  in  other  units. 
Total  cubic  volumes  per  acre,  from  ground  line 
to  tip  of  each  tree,  are  computed  from  basal 
area,  d.b.h.,  and  tree  height  by  means  of  stand 
volume  equations.  Factors  transferred  from 
VOLS  are  used  to  convert  total  cubic  volume  to 
other  units.  With  the  program  listed  in  appendix 
1,  factors  are  obtained  for  merchantable  cubic 
feet  to  a  4-inch  top  and  for  board  feet.  Yields 
in  units  other  than  volume,  such  as  by  weight 
(Myers  1960),  could  also  be  computed  if  desired. 
Total  cubic  volumes  are  multiplied  by  the  appro- 
priate factors  in  subroutine  YIELD. 


Standards  for  minimum  d.b.h.  and  top 
diameters  will  vary  by  species  and  locality. 
Statements  are  provided  at  the  end  of  sub- 
routine YIELD  so  the  limits  applicable  to  yield 
table  volumes  will  be  recorded  in  table  footnotes. 


Subroutine  CUTS 

CUTS  is  called  by  subroutine  YIELD  to 
determine  the  increase  in  average  d.b.h.  due  to 
thinning  to  any  specified  level.  The  equation 
for  DBHE  estimates  diameter  after  thinning 
when  the  diameter  before  thinning  and  the 
percentage  of  trees  retained  are  known  (Myers 
1971).  The  percentage  of  trees  that  will  be  re- 
tained to  reach  any  specified  growing  stock 
level  is  never  known.  Successive  percentages 
are  therefore  tested  until  d.b.h.  after  thinning, 
number  of  trees,  and  basal  area  agree  with  the 
desired  thinning  intensity  entered  as  THIN  or 
DLEV  by  BASIS1  and  as  defined  in  table  1. 

Equations  for  DBHP  and  SQFT  in  sub- 
routine CUTS  are  both  expressions  for  the 
combinations  of  diameter  and  basal  area  in 
table  1.  Statements  for  DBHP  compute  a  d.b.h. 
less  than  10.0  inches  when  the  corresponding 
basal  area  is  known.  Statements  for  SQFT 
determine  basal  area  when  d.b.h.  is  known. 
DBHP  computes  estimates  of  the  diameter  re- 
quired to  meet  the  standards  of  THIN  or  DLEV. 
Basal  areas  computed  with  diameters  from  the 
equation  for  DBHE  are  used  in  the  computations. 
When  DBHP  and  DBHE  are  equal  to  the 
nearest  0.1  inch,  iterations  of  CUTS  terminate 
and  post-thinning  basal  area  (BAST)  is  com- 
puted by  SQFT.  The  ratios  GIDE/REST  and 
REST/GIDE  in  CUTS  convert  values  from  grow- 
ing stock  level  80  of  table  1  to  the  levels 
specified  by  THIN  and  DLEV. 


Subroutine  ANVOL 

ANVOL  is  called  once  each  test  to  compute 
volumes  per  acre  for  each  year  from  initial 
thinning  to  maximum  stand  age.  Volumes  in 
cubic  and  board  feet  are  obtained  by  linear 
interpolation  and  printed  on  page  type  2.  Aver- 
age stand  diameters  at  each  year  of  stand  age 
are  also  computed  by  interpolation  of  yield  table 
values.  Diameters  are  used  later  as  "inde- 
pendent" variables  in  computation  of  the  cubic 
volume  obtainable  as  a  byproduct  from  saw-log 
cuts. 

The  last  few  statements  of  the  routine  ex- 
pand the  arrays  of  volumes  removed  to  assign 
the  volume  of  each  intermediate  cut  to  each  of 
the  years  before  the  next  cut  is  made.  Volumes 
cut  are  added  to  potential  reserve  volumes  from 
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the  yield  table,  if  necessary,  to  simulate  a 
complete  removal  of  volume  when  called  for 
and  the  yield  table  shows  that  partial  removals 
normally  occur  at  that  stand  age. 

Stand  age  cannot  exceed  179  years  unless 
dimensions  of  the  18-  and  180-location  arrays  of 
acres  and  annual  volumes  are  increased. 


Subroutine  BASIS2 

BASIS2  is  called  once  each  game  to  enter 
numerical  values  of  variables  that  may  differ 
for  each  game  of  a  test.  Descriptive  data 
include  area  of  the  working  circle,  distribution 
of  area  by  age  classes,  nonstocked  area,  and 
number  of  acres  to  be  planted  annually.  Various 
costs  and  the  rate  at  which  they  change  from 
year  to  year  are  also  read.  One  to  ten  combina- 
tions of  limiting  price,  allowable  cut,  and 
minimum  cutting  age  are  read  in  for  determina- 
tion of  the  annual  cut.  This  operation  is 
described  by  Gould  and  O'Regan  (1965),  and  in 
the  section  of  this  Paper  headed  Data  Deck. 
Variables  that  have  zero  values  at  the  start  of 
each  game  are  initialized  by  BASIS2. 

Definitions  of  the  variables,  restrictions  on 
their  values,  and  other  information  are  also 
presented  in  the  section  that  describes  the  data 
deck. 


Subroutine  CHEK2 

CHEK2  edits  the  data  cards  read  by  BASIS2 
to  insure  that  certain  errors  do  not  occur. 
Terminal  indexes  of  DO  loops  are  checked  to 
be  sure  they  are  not  smaller  than  one  or  larger 
than  the  dimensions  specified  for  them  or 
related  variables.  Variables  used  in  various 
computations  are  checked  to  be  sure  that  they 
do  not  have  unwanted  zero  or  negative  values. 
Additional  statements  can  be  added  to  further 
edit  the  data  cards,  such  as  specif ying maximum 
values  for  various  variables. 

As  with  CHEK1,  location  of  an  error  causes 
termination  of  the  simulation.  A  nonzero  value 
for  either  error  flag  will  cause  printing  of  an 
error  message  and  end  of  the  job. 


Subroutine  START 

START  is  called  once  each  game  to  print  a 
record  of  conditions  for  that  game.  Some  of  the 
values  read  by  BASIS1  and  BASIS2  are  printed 
on  page  type  3  under  the  heading  "alternatives 
for  this  game."  Values  that  appear  elsewhere, 
such  as  site  index  on  page  type  1,  are  not 
printed  by  START. 


Subroutine  AREAS 

AREAS  is  called  once  each  game  to  com- 
pute volumes  and  area  distributions  at  the  end 
of  the  year  before  simulation  begins.  Acres  in 
each  1-year  age  class  are  expanded  to  obtain  a 
record  of  the  age  of  each  individual  acre,  and 
are  then  totaled  by  1-  and  10-year  age  classes. 
Separate  records  are  kept  for  overstory  and 
understory  if  seed  tree  or  shelterwood  systems 
are  used. 

Each  acre  is  assigned  an  initial  treatment 
status  code  if  seed  tree  or  shelterwood  systems 
are  used.  Simulation  begins  as  though  the  same 
silvicultural  system  has  already  been  in  effect 
for  a  number  of  years.  Each  overstory  acre 
where  regeneration  has  started  has  an  under- 
story of  the  appropriate  age.  The  treatment 
status  code  controls  the  timing  of  future 
removal  or  final  cuts  of  the  overstory.  The  code 
also  helps  keep  appropriate  overstory  and  under- 
story ages  together  in  later  list  processing 
operations. 

Initial  growing  stock  volume  is  totaled  in 
board  feet  and  in  cubic  feet.  Volume  of  an  acre 
will  be  added  to  the  total  of  only  one  of  the 
two  volume  units.  The  unit  will  be  board  feet 
if  board-foot  volume  on  the  acre  equals  or 
exceeds  the  value  of  the  variable  BFMRCH  read 
by  BASIS1.  No  volume  will  be  credited  to  the 
acre  if  stand  age  is  less  than  the  specified 
minimum  (AGMRCH). 

Volume"  and  money  variables  that  require 
nonzero  values  at  start  of  simulation  are  com- 
puted. Each  value  is  then  stored  in  one  of  two 
2-dimensional  arrays  for  printing  by  REPRT2. 

Total  area  (LAND)  cannot  exceed  1,000 
acres  unless  the  dimensions  of  AGEOS(I), 
AGEUN(I),  and  TRET(I)  are  increased.  Age  of 
the  oldest  acre  cannot  exceed  179  years  unless 
dimensions  of  the  18-  and  180-location  arrays 
for  acres  and  volumes  are  increased. 


Subroutine  REPRT1 

REPRT1  is  called  several  times  each  game 
to  print  a  table  of  the  distribution  of  acres  by 
1-year  and  10-year  age  classes  on  page  type  4. 
REPRT1  is  called  first  to  record  the  distribution 
of  acres  before  simulation  begins,  as  computed 
by  AREAS.  It  is  also  called  at  the  end  of  the 
first  year  of  each  game  and  at  the  end  of  each 
decade. 


Subroutine  COVER 

COVER  is  called  once  each  year  of  each 
game  to  increase  forested  acreage  by  direct 
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seeding  or  planting  and  to  reduce  the  timbered 
area  by  the  amount  of  catastrophic  losses.  A 
specified  area  (IPLNT)  is  seeded  or  planted 
each  year,  if  nonstocked  acres  exist.  Nonstocked 
acres  are  those  deforested  by  fire  or  other 
catastrophe,  and  do  not  include  regenerating 
stands  that  will  restock  in  the  allotted  time. 
Some  or  all  clearcut  acres  could  be  added  to 
nonstocked  area  to  simulate  delays  or  failures 
in  natural  regeneration. 

Understory  and  overstory  age  and  treatment 
codes  are  increased  by  one  when  COVER  is 
called  at  the  beginning  of  each  year.  Results 
are  the  stand  ages  and  treatment  codes  appli- 
cable to  that  year. 

Age  of  each  acre  destroyed  and  added  to 
nonstocked  area  is  selected  at  random  with  a 
pseudorandom  number  generator  of  the  form: 


Xj  =  AXi_i  +  C  (modulo  M) 


(Greenberger  1961).  All  values  are  present  in 
the  FORTRAN  statement  except  for  Xi_i,  This 
term  is  the  variable  ANUL,  read  from  the  data 
deck  by  subroutine  BASIS2.  The  generator  in 
COVER  has  a  periodicity  of  128.  Any  value  of 
ANUL  from  0  to  127  may  be  read  by  BASIS2, 
to  vary  the  pattern  of  loss.  As  listed  in 
appendix  2,  the  sawtimber  on  any  acre  destroyed 
will  be  salvaged  if  it  is  not  less  than  a  specified 
minimum  volume  (BFSALV).  Stands  with  less 
than  minimum  board-foot  volumes  will  be 
cleaned  up  at  a  predetermined  cost  per  acre 
(CLOSS)  unless  stand  age  is  equal  to  or  less 
than  that  specified  for  first  thinning  (AGEO). 
Young  stands  are  assumed  to  have  no  material 
to  be  salvaged  or  that  will  require  cleanup 
before  planting.  All  these  limits  may  be  changed, 
if  desired,  to  better  apply  to  local  conditions 
and  management  practices. 

COVER  was  written  to  provide  for  the  loss 
of  whole  acres  only.  Partial  acres  lost  will  be 
accumulated  until  an  entire  acre  can  be  zeroed 
out  in  the  age  and  treatment  arrays.  If  very 
high  annual  losses  are  assumed,  appropriate 
parts  of  COVER  will  be  repeated  until  all  but 
fractional  acres  are  accounted  for. 

After  each  acre  selected  by  the  pseudo- 
random number  generator  is  destroyed,  it  is  put 
at  the  end  of  the  sequence  of  acres  arranged 
according  to  age.  This  is  necessary  because  the 
subroutines  that  simulate  regeneration  cuts  will 
select  the  acre  with  the  oldest  eligible  stand 
for  cutting  first. 


Subroutine  HRVST 

HRVST  is  called  once  each  year  to  perform 
any  scheduled  intermediate  and  regeneration 
cuts.  Stand  ages  at  time  of  intermediate  cuts 
are  determined  by  age  at  first  thinning  (AGEO) 
and  interval  between  treatments  (CYCL).  Ages 
of  stands  to  receive  regeneration  cuts  are  speci- 
fied by  values  of  REGN(I)  and  FMRCHD(I). 

Allowable  annual  cut  is  the  number  of 
acres  to  be  regenerated  by  clearcutting  or  to 
receive  the  first  regeneration  cut  of  the  seed 
tree  or  shelterwood  systems.  The  annual  cut 
equals  the  constant  or  variable  allowable  limit 
less  any  losses  of  one  or  more  entire  acres. 
Determination  of  the  allowable  limit  is 
described  in  the  section  headed  Data  Deck. 
Regeneration  cuts  are  performed  by  calls  to 
subroutines  CLEAR  or  SHWD. 

Every  acre  of  appropriate  age  is  thinned, 
regardless  of  whether  or  not  the  volume  to  be 
removed  exceeds  minimum  commercial  limits. 
Thinning  cost  (CTHN)  will  be  assessed  against 
each  acre  receiving  a  noncommercial  operation. 
Yields  will  be  determined  in  board  feet  if  the 
amounts  removed  equal  or  exceed  minimum 
limits  for  board  feet.  Otherwise,  commercial 
cuts  will  be  measured  in  cubic  feet  of  round- 
wood.  If  the  main  cut  is  credited  to  board-foot 
volume,  an  additional  amount  in  cubic  feet  will 
be  determined  as  merchantable  volume  not  in 
saw  logs. 


Subroutine  CLEAR 

CLEAR  is  called  annually  by  subroutine 
HRVST  if  needed  to  perform  regeneration 
cuttings  by  the  clearcutting  system.  As 
explained  above,  this  system  is  specified  by 
punching  only  one  nonzero  felling  age  on  the 
type  5  data  card.  The  number  of  acres  to  be 
regenerated  during  the  year  is  computed  in 
HRVST. 

As  with  thinnings,  commercial  volumes 
removed  will  be  recorded  in  board  feet  if  not 
less  than  the  minimum  commercial  board-foot 
cut.  Otherwise,  the  volume  will  be  computed  in 
cubic  feet.  With  board-foot  yields,  the  cubic 
feet  of  roundwood  not  in  saw  logs  will  also  be 
determined. 


Subroutine  SHWD 

SHWD  is  called  annually  if  needed  by  sub- 
routine HRVST  to  perform  regeneration  cuttings 
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by  the  seed  tree  or  shelterwood  systems. 
Harvested  volumes  will  be  determined  in  cubic 
feet  or  in  board  feet  and  cubic  feet,  as  in  sub- 
routine CLEAR.  As  each  acre  is  cut,  the 
treatment  status  code  is  changed  so  future 
regeneration  cuts  on  the  area  will  be  scheduled 
correctly. 

Subroutine  ARNG  is  called  by  SHWD,  as 
described  below. 


Subroutine  ARNG 

ARNG  is  called  periodically  by  subroutine 
SHWD  to  rearrange  the  sequence  in  which 
individual  acres  are  stored  in  age  and  treatment 
code  arrays.  During  a  simulation  run,  young 
overstories  are  created  in  two  ways:  (1)  by 
removal  of  the  previous  overstory,  and  (2)  by 
replacement  of  stands  destroyed  by  catastrophe. 
During  rearrangement,  overstories  of  equal  age 
are  brought  together  in  the  age  and  treatment 
arrays.  All  stands  will  then  be  regenerated  in 
proper  sequence  when  treated  in  order  of  age 
during  long  simulation  periods. 


Subroutine  SUMS 

SUMS  is  called  once  each  year  of  each  game 
to  perform  the  following  operations:  (1) 
compute  growing  stock  volume  at  the  end  of 
the  year,  (2)  determine  the  number  of  acres  in 
each  1-year  and  10-year  age  class,  (3)  compute 
the  costs  and  returns  resulting  from  the  year's 
activities,  and  (4)  increase  all  costs  by  the 
desired  annual  rate,  if  one  has  been  specified 
in  the  data  deck. 


Subroutine  ANUAL 

ANUAL  is  called  each  year  of  each  game  to 
compute  40  volume,  area,  or  money  totals  and 
to  store  them  for  later  use.  Each  total  is  stored 
in  one  of  two  2-dimensional  arrays.  The  first 
dimension  identifies  the  variable,  the  second  the 
year  of  a  game  to  which  the  value  applies. 
Numerical  value  of  each  year  subscript  is  year 
plus  one,  so  year  zero  of  a  game  can  be 
included  in  the  array.  Array  values  are  used  in 
the  three  subroutines  described  below. 


Subroutine  REPRT2 

REPRT2  is  called  at  the  end  of  each  game 
to  print  the  results  of  each  year  of  the  game. 
Array  values  computed  and  stored  by  ANUAL 


are  printed  in  40  numbered  columns  that  extend 
across  four  (five  with  shelterwood)  pages  of 
page  type  5  (appendix  2).  Entries  under  column 
headings  are  printed  at  the  rate  of  40 \ lines,  or 
years,  per  page. 


Subroutine  WORTH 

WORTH  is  called  at  the  end  of  each  game 
to  discount  all  costs  incurred  and  all  income 
received.  Value  of  the  growing  stock  at  the  end 
of  the  simulation  period  is  discounted  to 
beginning  of  the  period.  The  program  discounts 
each  future  value  at  each  of  20  compound 
interest  rates.  Rates  range  from  1.0  to  10.5  per- 
cent at  intervals  of  0.5  percent.  The  limits  and 
interval  can  be  changed  by  modification  of 
statements  for  CRATE  (I)  and  CRATE(K)  in  the 
first  set  of  statements  after  the  initializing 
operations.  The  subroutine  will  produce  20 
rates  unless  changes  are  made  in  the  dimension 
statement  and  the  terminal  indexes  of  the  DO 
loops. 

WORTH  prints  a  table  that  gives  the  present 
value  of  each  of  the  following  for  each  discount 
rate:  (1)  future  growing  stock,  (2)  all  incomes, 
(3)  sum  of  items  1  and  2,  (4)  all  costs,  and  (5) 
item  3  minus  the  sum  of  item  4  and  the  value 
of  the  growing  stock  at  beginning  of  the  game. 
Net  discounted  revenues  (present  worths,  item 
5)  may  be  plotted  over  discount  rates  to  deter- 
mine the  internal  rate  of  return  applicable  to 
the  duration  and  conditions  of  the  game. 


Subroutine  SUMRY 

SUMRY  may  be  called  at  the  end  of  each 
test  to  summarize  results  of  the  games  of  the 
test.  If  this  option  is  used,  SUMRY  is  also 
called  at  the  end  of  each  game  to  store 
specified  volume  or  money  values  in  a  3-dimen- 
sional  array.  Values  stored  correspond  to  the 
columns  of  REPRT2  that  have  their  column 
numbers  entered  as  KOL(I)  by  BASIS1.  Any 
of  the  40  numbered  columns  of  REPRT2 
(appendix  2)  may  be  reproduced.  Not  more 
than  six  columns  may  be  summarized  for  one 
test  unless  the  dimensions  of  variables  KOL(I) 
and  SUMM(I,J,K)  are  increased.  The  statement 
that  causes  reading  of  KOL(I)  by  BASIS1  must 
also  be  changed.  As  listed  in  appendix  1, 
results  of  as  many  as  10  games  may  be  sum- 
marized at  one  time. 

Summaries  of  the  games  of  a  test  are  pro- 
duced together  as  the  final  output  of  the  test. 
A  separate  page  of  page  type  7  is  printed  for 
each  variable   (column)  selected  in  advance. 
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Data  Deck 

Fourteen  types  of  punch  cards,  listed  below, 
are  used  to  enter  initial  values  of  variables  into 
computer  memory.  Most  cards  are  not  optional 
and  must  be  included  in  the  data  deck  so 
READ  statements  will  be  executed  properly. 
Three  types  are  optional  (7,  8,  10)  and  are 
omitted  from  the  data  deck  if  the  options  are 
not  to  be  exercised. 

Data  cards  are  read  by  three  routines  in  the 
order  in  which  the  types  are  numbered.  The 
type  1  card  is  read  once  by  the  main  program 
to  enter  BATCH  name  and  the  number  of  tests 
to  be  performed  in  the  batch.  These  identify  the 
job  and  control  the  number  of  times  the  rest 
of  the  main  routine  is  repeated. 

Card  types  2  to  8,  inclusive,  are  read  by 
BASIS1.  One  card  of  each  type  except  types  7 
and  8  must  be  read  once  each  test.  Card  types 
7  (15  cards)  and  8  (15  cards)  are  omitted  from 
the  data  deck  if  their  options  are  not  to  be 
used.  Nonzero  stumpage  prices  (BDPRI  and/or 
CFPRI)  on  card  type  6  cause  the  corresponding 
READ  statements  for  variable  prices  of  card 
types  7  or  8  to  be  skipped. 

Card  types  9  to  14,  inclusive,  are  read  by 
BASIS2  once  each  game.  Each  type  consists  of 
one  card  except  for  optional  type  10,  which 
requires  10  punch  cards.  Statements  that  refer 
to  card  type  10,  variable  area  by  age  classes, 
are  bypassed  when  a  nonzero  value  is  punched 
for  KAREA  on  card  type  9. 

Card  types  11,  12,  and  13  contain  values  for 
the  price  control  procedure  of  Gould  and 
O'Regan  (1965).  The  number  of  acres  harvested 
annually  can  be  made  to  vary  with  the  current 
stumpage  price  of  saw  logs.  For  example,  as 
shown  on  page  type  3  of  the  second  game  of 
the  test  problem  (appendix  2),  5  acres  will  be 
cut  if  price  per  thousand  board  feet  does  not 
exceed  $12.00.  Eight  acres  will  be  cut  if 
stumpage  price  is  $12.01  to  $15.00,  and  12  acres 
will  be  cut  if  price  exceeds  $15.00  but  is  less 
than  $99.00.  The  $99.00  value  is  merely  an 
arbitrary  upper  limit  that  prices  will  not  reach. 


Minimum  cutting  age  can  also  vary  with  stump- 
age price  if  the  clearcutting  option  is  used. 

Sequence  of  regeneration  cuts  is  from  oldest 
acre  to  youngest,  so  full  allowable  cut  will  be 
taken  only  if  sufficient  acres  above  minimum 
cutting  age  are  available.  If  price  control  is  not 
wanted,  entries  for  allowable  cut  in  columns  1 
to  4  of  card  type  12  and  for  cutting  age  in 
columns  1  to  8  of  card  type  13  are  the  desired 
constant  limits.  A  critical  price  greater  than  the 
largest  possible  price  (for  example,  $99.00)  is 
entered  in  columns  1  to  8  of  card  type  11. 

Whether  price  control  is  wanted  or  not,  the 
potential  annual  cut  will  be  reduced  automat- 
ically each  time  an  acre  is  lost  to  fire  or  other 
catastrophe.  The  effect  is  to  impose  area  control 
by  having  the  total  of  acres  cut  and  lost  equal 
the  annual  cutting  budget.  The  reduction  of 
harvestable  acres  may  be  prevented,  if  desired, 
by  removing  LOSS  from  the  statement  labeled 
10  in  subroutine  HRVST. 

Card  type  14  enters  the  costs  of  various 
operations  and  the  rate  at  which  these  costs 
may  increase  annually. 

The  order  in  which  data  cards  will  be  read 
can  be  illustrated  by  a  job  consisting  of  two 
tests  with  two  games  per  test.  The  sequence  is 
as  follows: 


1.  The  type  1  card  for  the  job. 

2.  Card  types  2  to  8  for  the  first  test. 

3.  Card  types  9  to  14  for  game  one  of  the  first 
test. 

4.  Card  types  9  to  14  for  game  two  of  the  first 
test. 

5.  Card  types  2  to  8  for  the  second  test. 

6.  Card  types  9  to  14  for  game  one  of  the 
second  test. 

7.  Card  types  9  to  14  for  game  two  of  the 
second  test. 

Any  number  of  tests  and  games  may  be 
performed  in  one  job.  Unless  modified,  sub- 
routine SUMRY  cannot  report  the  results  of 
more  than  10  games. 


Order  and  Contents  of  the  Data  Deck  for  Program  MANGD2 


Card  Read    Frequency    No.  of  Variable 

type    Optional      by  read  cards  name        Columns    Format  Description  of  variable  

1  NO         Main       Batch  1         BATCH (I)        1-24        3A8         Descriptive  name  to  identify  output 

of  one  pass  through  the  computer. 

NTSTS  25-28        14  Number  of  tests  in  the  batch,  each 

with  a  yield  table. 

2  NO       BASIS1     Test  1         SPEC  1-40       5A8         Name  of  species  being  examined;  for 

table  headings. 
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Card  Read    Frequency    No.  of  Variable 

type    Optional      by  read  cards  name        Columns  Format 


Description  of  variable 


NO        BASIS1  Test 


NSP 


NOYRS 


NO        BASIS1      Test  1  SITE 


CYCL 


41-43  13 


DESCR(I)        1-40  5A8 


NGAME  41-44  14 


45-48  14 


NKOLS  49-52  14 


KOL(I)          53-76  614 


1-5  F5.0 


6-10  F5.0 


RINT  11-15  F5.0 


Code  number  of  the  species  being 
examined.    Used  to  select  species- 
specific  relationships. 

Phrase  to  describe  conditions  of  one 
test;  to  identify  output. 

Number  of  trials  (games)  to  be 
operated  in  one  test. 

Number  of  years  simulated  in  each 
game.  Can  be  up  to  150,  but  will 
usually  be  less. 

Number  of  columns  of  REPRT2  to  be 
printed  by  SUMRY. 

Numbers  of  the  columns  of  REPRT2  to 
be  printed  by  SUMRY.     Column  numbers, 
1  to  40,  are  given  in  the  column  head- 
ings of  page  type  5  (Appendix  2). 

Site  index.    Base  age  and  crown  classes 
same  as  used  to  derive  growth  equa- 
tions . 

Interval  between  intermediate  cuts . 
Equal  to  or  a  multiple  of  RINT. 

Number  of  years  for  which  a  growth 
projection  is  made  by  the  equations 
in  YIELD. 


THIN  16-20  F5.0 


DLEV  21-25  F5.0 


AGEO  26-30  F5.0 


Density  level  after  initial  thinning 
at  age  AGEO.    Based  on  table  1  and 
procedure  given  in  description  of 
subroutine  YIELD.    May  equal  DLEV. 

Density  level  for  intermediate  cuts 
after  initial  thinning.    Based  on 
table  1  of  this  publication  and 
procedure  described  in  YIELD. 

Stand  age  at  time  of  initial  thin- 
ning.   First  age  given  in  the  yield 
table. 


NO        BASIS1  Test 


DENO  31-35  F5.0 

DBHO  36-40  F5.2 


GIDE 


41-45  F5.0 


1         REGN(l)  1-8  F8.3 


VLLV(l)          9-16  F8.3 


Number  of  trees  per  acre  at  age  AGEO. 

Average  diameter  breast  high  of  the 
stand  at  age  AGEO. 

Base  level  of  set  of  growing  stock 
levels,  as  the  80.0  shown  in  the 
example  of  appendix  2. 

Stand  age  when  first  regeneration 
cut  will  occur.    Must  not  be  zero  or 
blank  as  this  is  rotation  length  for 
clearcutting. 

Percentage  of  previous  DLEV  to  be 
left  at  age  REGN(l).    Will  be  zero 
with  clearcutting. 
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Card  Read    Frequency    No.  of  Variable 

type    Optional      by  read  cards  name        Columns    Format  Description  of  variable 


CYCNW(l)      17-24  F8.3 


REGN(2) 


VLLV(2) 


REGNO) 


25-32 


33-40 


49-56 


F8.3 


F8.3 


CYCNW(2)      41-48  F8.3 


F8.3 


New  interval  between  cuts  in  effect 
after  age  REGN(l).    Will  be  zero  with 
clearcutting . 

Stand  age  at  which  second  regenera- 
tion cut,  if  any, will  occur.  Removal 
of  seed  trees  or  second  cut  of 
shelterwood . 

Percentage  of  previous  DLEV  (includ- 
ing effect  of  VLLV(l)  to  be  left  at 
age  REGN(2).    Will  be  zero  if  REGN(3) 
equals  zero. 

New  interval  between  cuts  in  effect 
after  REGN(2).    Will  be  zero  if 
REGN(3)  equals  zero. 

Stand  age  at  which  third  regenera- 
tion cut,  if  any,  will  occur.  Final 
cut  of  3-cut  shelterwood. 


NO 


BASIS1  Test 


AGMRCH  1-5         F5.0       Minimum  stand  age  for  an  acre  to  be 

included  in  growing  stock  volume. 

BFMRCH  6-10        F5.2       Minimum  volume  in  M  bd.  ft.  for  an 

acre  to  be  included  in  board-foot 
growing  stock  volume. 

BFSALV         11-15        F5.2       Minimum  volume  per  acre  in  M  bd.  ft, 

for  commercial  salvage  after  fire, 
wind ,  or  other  loss . 


COMCU  16-20       F5.0       Minimum  cut  per  acre  in  merchantable 

cubic  feet  for  a  cut  to  be  of  posi- 
tive commercial  value. 


EXTCU 


COMBF 


21-25        F5.0       Minimum  commercial  cut  per  acre  in 
merchantable  cubic  feet  when  by- 
product of  sawlog  operation. 

26-30       F5.2       Minimum  cut  per  acre  in  M  bd.  ft. 

for  a  cut  to  be  of  positive  commer- 
cial value . 


BFPCT  31-35       F5.3       Ratio,  as  a  decimal,  of  board-foot 

stumpage  values  of  thinnings  to 
board-foot  stumpage  values  of 
harvests . 

CFPCT  36-40       F5.3       Ratio,  as  a  decimal,  of  cubic-foot 

stumpage  values  of  thinnings  to 
cubic-foot  stumpage  values  of 
harvests . 


GNTR  41-45        F5.0       Any  number  between  0  and  1023  used 

to  generate  random  element  of  the 
increase  from  DBHT  to  DBHO.  Enter 
number  larger  than  1024  to  bypass 
this  step. 
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Card  Read    Frequency    No.  of  Variable 

type    Optional      by  read        cards  name        Columns  Format 


Description  of  variable 


BDPRI 


46-50 


CFPRI 


51-55 


YES 


YES 


BASIS1 


BASIS1 


Test 


Test 


F5.2 


F5.2 


15        PRICF(I)        1-80  10F8.3 


15        PRIBD(I)        1-80  10F8.3 


Stumpage  price  per  M  bd.  ft.  of  final 
harvest  if  price  is  constant  for  all 
years  of  a  game.    Enter  zero  if  vari- 
able prices  will  be  entered  with  card 
type  8. 

Stumpage  price  per  100  cubic  feet  of 
final  harvest  if  price  is  constant 
for  all  years  of  a  game.    Enter  zero 
if  variable  prices  will  be  entered 
with  card  type  7. 

Stumpage  price  per  100  cubic  feet  of 
harvest  for  each  of  150  years.  Used 
when  CFPRI  equals  zero. 

Stumpage  price  per  M  bd.  ft.  of  har- 
vest for  each  of  150  years.  Used 
when  BDPRI  equals  zero. 


NO 


BASIS2 


Game 


1        GMNAM(I)  1-24 


3A8         Descriptive  name  to  identify  each 
game  of  a  test. 


LAND  25-28 


14  Total  acres  in  simulated  working 

circle.    Maximum  is  1,000  acres. 


MOLD  29-32  14 


NONSTK  33-36  14 


KAREA  37-40  14 


IPLNT  41-44  14 


DEFOR  45-52  F8.5 


Age  of  oldest  stand  in  the  working 
circle  at  start  of  a  game.  Maximum 
is  179  years. 

Number  of  acres  nonstocked  at  start 
of  a  game.     Does  not  include  acres 
harvested  the  year  before  simulation 
begins  if  regeneration  will  take 
place  in  the  allotted  time. 

Number  of  acres  in  each  1-year  age 
class  when  there  is  equal  area  in 
each  class  except  for  NONSTK. 

Number  of  acres  of  NONSTK  regenerated 
annually  by  direct  seeding  or  plant- 
ing at  a  cost  of  CPLT  per  acre. 

Percentage,  as  a  decimal,  of  the  area 
of  forest  lost  annually  to  fire,  wind, 
etc. 


10 


YES 


BASIS 2  Game 


11 


NO 


BASIS2  Game 


ANUL  53-60  F8.5 


10  IACRE(I)        1-72  1814 


PRIDIV(I)       1-80  10F8.3 


Any  number  between  0  and  127  used  to 
begin  generation  of  pseudorandom 
numbers  that  represent  ages  of  stands 
lost  to  fire  or  other  agency. 

Acres  in  each  1-year  age  class  from  0 
to  not  more  than  179.     Use  if  con- 
stant area  KAREA  is  not  wanted.  In- 
clude NONSTK  in  IACRE(l)  as  well  as 
on  card  type  9. 

Limiting  prices  used  to  determine 
annual  cut  in  acres  and  minimum  cut- 
ting age. 
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Card  Read    Frequency    No.  of  Variable 

type    Optional      by  read        cards  name        Columns  Format 


Description  of  variable 


12  NO         BASIS2      Game  1 

13  NO         BASIS2      Game  1 

14  NO        BASIS2      Game  1 


MALCUT(I)  1-40 


FMRCHD(I)  1-80 


RATE 


CPLT 


CTHN 


1-8 


9-16 


17-24 


CLOSS  25-32 


ACCST  33-40 


CUCST  41-48 


BFCST  49-56 


1014        Allowable  annual  cut  in  acres.  May 

vary  with  PRIDIV(I). 

10F8.3    Minimum  cutting  age.    May  vary  with 
PRIDIV(I). 

F8.3       Rate  of  annual  increase  in  costs. 

Enter  zero  if  constant  costs  are 
desired.    Otherwise,  enter  percent- 
age as  a  decimal. 

F8.3        Cost  of  regenerating  1  acre  by  seed- 
ing or  planting. 

F8.3        Cost  per  acre  of  noncommercial 

thinning  with  stand  conditions  as 
specified  for  the  simulation. 

F8.3        Cost  per  acre  of  cleanup  after  loss 
due  to  fire,  wind,  etc.,  when  volume 
that  can  be  salvaged  is  less  than 
BFSALV. 

F8.3        Total  per  acre  for  1  year  of  the 
annual  costs  that  can  be  assessed 
by  area. 

F8.3       Total  of  the  costs  that  can  be 
assessed  against  each  100  cubic 
feet  harvested. 

F8.3       Total  of  the  costs  that  can  be 
assessed  against  each  M  bd.  ft. 
harvested . 


Modification  of  MANGD2 

The  program  can  be  adapted  readily  for 
simulations  of  species  other  than  those  repre- 
sented in  the  listing  of  appendix  1.  Replacement 
of,  or  additions  to,  statements  in  subroutines 
YIELD,  VOLS,  CUTS,  HRVST,  CLEAR,  and 
SHWD  are  needed.  The  program  listing 
(appendix  1)  contains  COMMENT  statements 
that  name  the  species-specific  statements.  Each 
statement  is  identified  in  YIELD  because  of 
the  length  of  the  subroutine.  Elsewhere,  the 
species-specific  statements  are  named  at  the 
beginning  of  the  routine. 

As  stated  in  the  description  of  MANGD2, 
each  species-specific  statement  can  appear  in 
several  versions,  one  for  each  species  of  interest. 
In  the  listing  of  appendix  1,  specific  statements 
are  given  for  two  species.  Space  is  provided  for 
a  third  species  in  the  form  of  dummy 
CONTINUE  statements.  The  simplest  modifica- 
tion for  another  species  is,  therefore,  to  replace 


the  dummy  statements  with  appropriate  relation- 
ships applicable  to  the  new  species. 

Species-specific  relationships  are  described 
briefly  below.  Additional  details  on  necessary 
field  work  and  analysis  are  given  elsewhere 
(Myers  1971). 


1.  Diameter  increase  from  growth. 

Regression  analysis  of  data  obtained  on 
temporary  and/or  permanent  plots  provides 
the  equation  for  DBHO  in  subroutine  YIELD. 
Future  average  stand  d.b.h.  is  predicted  from 
present  stand  conditions.  For  ponderosa  and 
lodgepole  pines,  present  d.b.h.,  site  index, 
and  present  basal  area  per  acre  are  useful 
variables.  The  prediction  period  of  the  equa- 
tion is  determined  by  the  number  of  rings 
measured  on  increment  cores  from  temporary 
plots  or  from  the  interval  between  records 
on  permanent  plots. 
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2.  Diameter  increase  from  thinning. 

Change  in  average  stand  diameter  caused 
by  intermediate  cutting  is  determined  by 
CUTS  with  the  statements  for  DBHE  and 
PDBHE.  Regression  analysis  of  data  obtained 
during  repeated  trial  marking  of  plots  to 
numerous  intensities  of  cutting  is  used  to 
obtain  the  relationships.  In  CUTS,  post- 
thinning  d.b.h.  (DBHE)  is  a  function  of 
prethinning  d.b.h.  and  the  percentage  of 
trees  to  be  retained.  DBHE  is  computed 
directly  if  the  percentage  of  trees  to  be  re- 
tained is  at  least  50  percent.  With  fewer 
trees  retained,  the  relationship  is  highly 
nonlinear,  so  PDBHE  is  computed  and  its 
antilogarithm  becomes  DBHE. 

Simulation  may  be  used  to  supplement 
the  field  data,  if  the  results  are  checked  be- 
fore use  (Myers  1971). 


3.  Residuals  of  the  DBHO  equation. 

Optional  computation  of  random  ele- 
ments to  be  added  to  each  predicted  DBHO 
is  covered  in  the  description  of  subroutine 
YIELD.  Residuals  used  to  compute  the 
polynomial  for  RES  come  from  the  field  data 
and  related  regression  equation  for  DBHO 
described  in  item  one,  above  (Evans  et  al. 
1967). 


4.  Average  stand  height. 

Heights,  ages,  and  site  indexes  obtained 
on  plots  where  height  growth  apparently  has 
never  been  reduced  by  high  stand  density 
are  used  to  obtain  estimators  of  HTSO. 
Heights  from  good  site  index  curves  or 
tables  may  supplement  or  substitute  for  field 
data  if  based  on  the  same  crown  classes  used 
in  the  stand  volume  equation,  described 
below.  In  MANGD2,  average  dominant  and 
codominant  heights  are  used  wherever  stand 
heights  enter  calculations. 

5.  Increase  in  average  height  from  thinning. 

Data  to  compute  the  relationships  for 
ADDHT  in  YIELD  are  obtained  the  same  way 
as  those  used  to  estimate  changes  in  average 
d.b.h.  Repeated  trial  markings  of  numerous 
stands  to  many  reserve  levels  will  provide: 
(1)  initial  average  height,  (2)  postthinning 
average  height,  and  (3)  the  percentage  of 
trees   retained.    Relationships  for  ADDHT 


compute  the  amount  of  change  in  height,  or 
the  difference  between  prethinning  and  post- 
thinning  averages,  as  a  function  of  the 
percentage  of  trees  retained.  The  crown 
classes  measured  must  be  the  same  as  for 
other  measures  involving  height,  dominants 
and  codominants  in  the  case  of  MANGD2. 

At  each  cutting,  the  current  value  of 
ADDHT  is  added  to  height  before  thinning, 
HTSO,  to  obtain  height  after  thinning,  HTST. 
It  is  also  added  to  a  cumulative  sum  of 
changes,  HTCUM,  so  computed  heights  be- 
fore thinning  will  show  the  effects  of  past 
treatments  as  well  as  of  increased  age. 


6.  Noncatastrophic  mortality. 

The  number  of  trees  that  die  in  a  given 
period  is  expressed  as  a  percentage  of  the 
number  of  trees  alive  at  the  beginning  of  the 
period.  This  percentage,  DIED,  is  estimated 
in  YIELD  from  average  stand  d.b.h.  and  basal 
area,  both  at  the  beginning  of  the  period. 
Data  come  from  permanent  plots  and  from 
temporary  plots  in  areas  where  dead  trees 
were  removed  a  known  number  of  years 
prior  to  measurement.  Each  percentage  is 
converted  to  a  decimal  before  regression 
analysis. 

Subroutine  YIELD  produces  yield  tables 
for  managed  stands  where  density  is  kept  at 
a  reasonable  level  by  repeated  thinnings. 
Reduction  in  numbers  of  trees  is,  therefore, 
minor  and  erratic,  just  as  it  is  in  actual 
thinned  stands  of  ponderosa  and  lodgepole 
pines.  In  fact,  a  prediction  equation  could 
not  be  found  for  such  stands  with  an 
average  d.b.h.  of  10.0  inches  or  larger.  Thus 
each  mortality  equation  in  YIELD  is  preceded 
by  a  logical  IF  statement  with  10.0  in  the 
comparison. 


7.  Stand  volume  equation. 

The  basic  volume  computation  in 
MANGD2  is  the  determination  of  total  cubic 
volume  per  acre  (CUFT)  by  subroutine  VOLS. 
This  is  the  sum  of  the  cubic-foot  volumes 
from  ground  line  to  tip  of  all  trees  more 
than  4.5  feet  tall.  Volumes  in  other  units  are 
computed  by  multiplying  total  cubic-foot 
volumes  by  conversion  factors. 

Plot  volumes  are  determined  by  appro- 
priate methods  in  all  units  of  interest, 
including  total  cubic  feet.  Other  measure- 
ments are  also  obtained  for  use  in  regression 
analysis.   Two   forms  of  stand  volume 
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equation  appear  in  subroutine  VOLS.  They 
are: 

V  =  (a  +  biD2H  +  b2B)  X  N 

V  =  (a  +  bjD^H)  X  N 

Another  form  that  has  proven  useful  is: 

V  =  a  +  b1BH  +  b2D 
Where 

V  =  gross  total  cubic  volume  per  acre. 
D  =  average  stand  d.b.h.  in  inches. 
H  -  average  height  of  dominant  and  co- 
dominant  trees. 
B  =  basal  area  per  acre  in  square  feet. 
N  =  number  of  trees  per  acre. 

Two  statements  are  used  for  each  species, 
because  the  relationships  are  not  linear  over 
the  ranges  of  BH  or  d2h  needed  for  the 
yield  tables.  In  data  for  regression  analysis 
for  the  first  two  equations,  the  dependent 
variable  is  cubic  volume  per  acre  divided  by 
number  of  trees. 


8.  Volume  conversion  factors. 

Factors  to  convert  total  cubic  feet  to 
other  units  are  computed  by  VOLS.  Two 
factors  are  produced:  (1)  FCTR  to  obtain 
merchantable  cubic  feet  from  top  of  stump 
to  minimum  merchantable  top,  and  (2)PROD 
to  obtain  volume  in  board  feet.  As  mentioned 
previously,  relationships  for  other  units  of 
measure  or  other  utilization  standards  may 
replace  those  listed  in  appendix  1. 

Volumes  per  acre  in  various  units  are 
obtained  as  described  for  the  previous  item. 
Ratios  are  then  computed,  such  as:  (1)  mer- 
chantable cubic  feet  per  total  cubic  foot,  and 
(2)  board  feet  per  total  cubic  foot.  These 
ratios  are  then  used  as  dependent  variables 
in  regression  analyses  involving  average 
stand  d.b.h.  and  basal  area.  Several  equations 
for  each  factor  and  species  are  shown  in 
VOLS  so  the  relationships  can  be  expressed 
by  simple  linear  functions  over  a  wide  range 
of  d.b.h. 


9.  Cubic  feet  from  saw-log  cut. 

The  equations  for  ADD  in  subroutines 
HRVST,  CLEAR,  and  SHWD  estimate  the 
merchantable  cubic  feet  obtained  in  the 
board-foot  portion  of  saw-log  cuts.  To  obtain 


the  basic  data,  cubic-  and  board-foot  volumes 
of  all  trees  above  minimum  size  for  saw-logs 
are  summed  to  obtain  equivalent  volumes 
per  acre.  Tree  data  come  from  the  same 
plots  used  for  other  volume  items  described 
above.  Dependent  variable  for  regression 
analysis  is  merchantable  cubic  feet  per 
thousand  board  feet.  Independent  variables 
for  the  pines  used  as  examples  are  average 
d.b.h.  and  thousands  of  board  feet  per  acre. 
The  equation  for  ADD  is  used  as  follows: 

1.  Cubic  volume  contained  in  saw  logs  is 
computed. 

2.  This  volume  is  subtracted  from  the  entire 
amount  of  merchantable  cubic  feet  in  the 
cut. 

3.  The  difference  is  used  in  computations  as 
the  cubic  volume  obtainable  as  a  byproduct 
of  the  saw-log  operation. 

Possible  modifications  of  MANGD2  for  pur- 
poses other  than  changes  of  species  are  given 
in  the  description  of  the  appropriate  subroutine. 


An  Application  of  MANGD2 

The  test  problem  that  follows,  demonstrates 
most  computations  possible  with  MANGD2  and 
the  printed^  results  obtained.  It  may  be  used  to 
verify  accuracy  of  source  decks  and  compatibility 
of  the  program  with  locally  available  compilers. 
The  data  deck  is  listed  in  figure  2.  Although 
the  growth  projections  use  relationships 
applicable  to  Black  Hills  ponderosa  pine,  costs 
and  prices  are  hypothetical.  Results  of  the 
simulation  are  therefore  examples  only,  and 
do  not  apply  to  any  real  forest  area. 

Assume  an  area  of  885  acres  of  managed 
ponderosa  pine  stands  that  range  from  0  (just 
harvested)  to  139  years  old  at  the  end  of  a  year 
of  operations.  Management  is  by  3-cut  shelter- 
wood,  with  controlling  stand  ages  and  intervals 
as  shown  in  figure  1.  Overstory  stands  range 
in  age  from  30  to  139  years  old,  with  8  acres  in 
each  1-year  age  class.  Understory  stands  range 
from  0  (understory  absent)  to  29  years  old. 
There  are  8  acres  in  each  1-year  age  class  of 
the  understory,  including  age  0,  plus  an  addi- 
tional 645  acres  of  age  0  where  understory  does 
not  exist.  Understories  are  established  where 
overstory  stands  are  111  to  139  years  old.  There 
are  5  acres  of  old  burn  and  windthrow  that  will 
be  seeded  or  planted  at  the  rate  of  one  acre 
annually.  Annual  losses  to  fire,  wind,  and  other 
agencies  average  0.04  percent  of  the  forested 
area.  Site  index  of  all  acres  is  70  feet  (base  age 
100  years). 
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SHELTERWOOD  TEST  1 
BLACK  HILLS   PONDERQSA  PINE 
MANAGED,   THINNED  AT  AGE  30. 
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Figure  2. — Data  deck 


Stands  will  be  regenerated  by  3-cut  shelter- 
wood  and  will  be  thinned  at  20-year  intervals, 
beginning  with  a  precommercial  cut  at  age  30. 
Shelterwood  after  the  first  regeneration  cut 
will  have  half  the  basal  area  that  would  be  left 
if  the  operation  were  an  intermediate  cut.  Basal 
area  retained  after  the  second  regeneration  cut 
will  be  half  that  left  after  the  first  cut.  Stands 
30  years  old  on  land  of  site  index  70  are  ex- 
pected to  have  950  trees  per  acre  that  average 
4.8  inches  in  diameter.  Initial  thinning  will  be 
to  level  120  or  120/80  times  the  basal  areas  in 
table  1.  Subsequent  intermediate  cuts  will  be  to 
level  100,  or  100/80  times  tabulated  basal  areas. 

Values  in  the  first  line  of  the  yield  table 
describe  stand  conditions  just  prior  to  initial 
thinning.  To  increase  the  realism  of  simulations, 
it  is  necessary  to  have  some  knowledge  of  what 
may  be  expected  for  various  combinations  of 
stand  conditions.  Actual  unthinned,  young 
stands  can  be  examined  to  determine,  for  each 
site  index  class,  the  average  d.b.h.  resulting 
from  various  combinations  of  stand  age  and 
number  of  trees  per  acre.  Influence  of  an  over- 
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for  test  problems. 


story  is  included,  as  necessary,  where  shelter- 
wood  or  seed  tree  systems  are  used.  The 
combination  of  d.b.h.,  density,  and  site  index 
selected  for  the  first  line  of  the  table  will  be 
the  one  that  best  represents  the  regeneration 
goal  for  the  working  group. 

Potential  prices  of  two  products  have  been 
estimated  for  each  of  the  next  30  years.  The 
stumpage  price  of  100  cubic  feet  of  roundwood 
from  mature  trees  or  from  thinnings  is  expected 
to  be  $2.50  throughout  the  period.  Price  of  a 
thousand  board  feet  of  mature  saw  logs  is  ex- 
pected to  vary  annually,  as  shown  in  column 
28  of  page  type  5  of  the  printout  of  annual 
results  (appendix  2).  Saw  logs  from  thinnings 
will  sell  for  85  percent  of  the  price  of  logs  from 
regeneration  cuts.  A  minimum  commercial  cut 
of  saw  logs  will  be  1,500  board  feet  per  acre. 
Minimum  commercial  cuts  per  acre  of  round- 
wood  will  be  300  cubic  feet  from  roundwood 
sales  and  100  cubic  feet  as  a  byproduct  from 
saw-log  operations. 

Current  value  of  the  growing  stock  will  be 
computed  only  for  stands  at  least  40  years  old. 
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Value  will  be  computed  for  cubic  volume  for 
acres  with  less  than  1,500  board  feet.  Otherwise 
board-foot  volumes  will  be  used. 

Present  costs  of  various  operations  are  as 
follows: 

Costs  per  acre- 
Seeding— $30.00 

Precommercial  thinning — $25.00 
Cleanup  where  salvage  is  not  pos- 
sible—$25.00 
Annual  costs— $0.20 
Costs  assessed  against  volume  sold— 
Per  100  cubic  feet— $0.05 
Per  thousand  board  feet— $1.56 

These  costs  are  expected  to  increase  at  a  rate 
of  1  percent  annually.  Resources  are  available 
to  seed  1  acre  each  year. 

Two  possible  means  of  setting  the  allowable 
annual  cut  are  to  be  tested.  One  alternative  is 
to  harvest  8  acres  annually,  less  any  catastrophic 
losses,  regardless  of  price  fluctuations.  A  second 
possibility  is  to  harvest:  (1)5  acres  if  stumpage 
price  per  thousand  board  feet  is  $12.00  or  less, 

(2)  8  acres  if  the  price  is  $12.01  to  $15.00,  and 

(3)  12  acres  if  price  exceeds  $15.00  per  thousand. 
Regeneration  will  not  be  started  in  stands  less 
than  110  years  old. 

Periodic  production  in  board  feet  and  total 
net  worth  will  be  compared.  Values  needed  to 
obtain  rates  earned  will  be  computed. 

Data  cards  to  enter  the  above  values  into 
computer  memory  must  contain  the  alphameric 
characters  shown  in  figure  2.  Card  types  7  and 
10  are  not  included  in  the  data  deck  because 
the  options  that  require  them  will  be  bypassed. 

Test  conditions  and  results  of  the  simula- 
tions are  printed  on  seven  types  of  pages 
(appendix  2).  The  first  two  types,  (1)  a  yield 
table,  and  (2)  tables  of  volumes  per  acre  for 
each  year  of  stand  age,  appear  once  because 
one  test  was  run.  Four  types  of  pages  are 
printed  for  each  of  the  two  games.  The  seventh 
type  of  page  appears  once  at  the  end  of  the 
printout  to  summarize  specified  results  of  the 
two  games. 

The  two  sheets  of  "alternatives  for  this 
game"  show  the  values  used  in  the  simulations, 
including  the  different  allowable  cuts  and 
cutting  ages  tested. 

Distributions  of  acres  by  age  classes  (page 
type  4)  appear  on  two  sets  of  pages,  one  set 
for  each  game.  Pages  for  year  zero  show  8 
acres  of  overstory  in  each  1-year  age  class  from 
30  to  139  years.  Age  class  zero  has  an  additional 
5  acres  of  nonstocked  area.  At  year  zero,  there 
are  8  acres  of  understory  in  each  1-year  class 
from  0  to  29  years.  Total  acres  of  understory  in 
the  zero  age  class  is  653  to  account  for  the 
acres  not  in  process  of  regeneration  that  have 


only  one  story  (fig.  1).  Acreages  are  the  same 
for  both  games,  because  initial  distributions 
were  the  same. 

Type  4  pages  are  printed  at  the  end  of  the 
first  year  of  each  game  and  at  the  end  of  each 
decade.  For  brevity,  only  the  pages  printed 
after  the  thirtieth  year  of  each  game  are  repro- 
duced in  appendix  2.  After  30  years  of 
simulation,  losses  and  direct  seeding  have 
modified  the  pattern  of  8-acre  units.  In  addition, 
area  distributions  of  the  second  game  have  been 
changed  by  the  variable  annual  cuts. 

The  fifth  type  of  page  is  a  set  of  five  pages 
for  each  game.  Values  in  many  of  the  40 
numbered  columns  differ  between  games. 
Volumes  are  unequal  because  of  variations  in 
annual  cuts  of  mature  timber  during  the  second 
game.  This  caused  money  values  to  differ  from 
those  reported  for  the  first  game. 

A  page  of  discounted  money  values,  the 
sixth  type  of  page,  is  printed  for  each  game. 
Rate  of  return  was  about  the  same  for  both 
games.  Both  operations  were  profitable.  In 
addition,  the  forest  would  probably  be  in  good 
condition  to  produce  other  products,  especially 
recreation. 

Last,  specified  values  from  each  game  were 
printed  together  for  convenience  in  interpreta- 
tion of  results.  Total  volume  in  board  feet  of 
all  cuts  plus  growing  stock  (column  10)  was 
slightly  higher  after  30  years  where  equal  areas 
were  cut  each  year.  After  the  second  year,  total 
net  worth  (column  40)  was  greater  where  annual 
cuts  varied  with  price. 

It  must  be  emphasized  that  results  of  these 
or  other  simulations  depend  on:  (1)  duration  of 
the  games,  (2)  values  entered  for  the  various 
variables,  (3)  assumptions  made,  and  (4)  degree 
to  which  the  system  model  represents  reality. 

The  above  information,  additional  data,  and 
knowledge  of  local  conditions  would  help  the 
forest  manager  decide  how  he  might  best  con- 
duct his  business.  Money  yields  might  encourage 
the  manager  to  vary  annual  cuts  in  response  to 
changes  in  stumpage  price.  Highly  variable 
annual  cuts  and  equally  variable  net  incomes 
could  suggest  that  additional  simulations  be 
run  to  test  other  alternatives.  Cost  of  computer 
time  need  not  restrict  the  manager  in  his 
search  for  information.  The  test  problem  was 
compiled  and  run  on  a  CDC  6400  computer  in 
66  seconds  of  central  processor  time  and  47 
seconds  of  input-output  time.  Times  for  a 
similar  problem  with  clearcutting  were  63  and 
47  seconds,  respectively.  Opportunities  for  cost 
reductions  with  repeat  runs  are  great.  Compila- 
tion, avoidable  with  use  of  a  binary  deck  for 
the  source  program,  took  50  seconds  of  the  total 
central  processor  time. 
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Appendix  1:    Listing  of  Program  MANGD2 


PROGRAM  MANGD2 

C 

MOLO  =    AGE   OF   OLDEST   ACRE    IN   WORKING  CIRCLE   AT   START  OF   A  GAME. 

1 ( INPUT, OUTPUT, TAPE  5= INPUT, TAP E6  =  0UTPUT) 

C 

NACOS(I)    =   ACRES  OF   OVFRSTORY    IN   EACH   1-YEAR  AGE  CLASS  I. 

c 

C 

NACUNII)    =  ACRES   OF  UNDERSTORY    IN   EACH   1-YEAR   AGE   CLASS  I. 

c 

TO  SIMULATE   MANAGEMENT   OF   EVEN-AGED   TIMBER  STANDS. 

C 

NGAME  =  NUMBER  OF  GAMES  PER  TEST. 

c 

ALL   STATEMENTS  TO  BE   MODIFIED  FOR  OTHER   SPECIES   ARE    IN  SUBROUTINES 

C 

NKOLS  =   NUMBER  OF   COLUMNS  OF   REPKT2   TO   BE   PRINTED   BY  SUMRY. 

c 

YIELD,   VOLS,   CUTS,   HRVST ,    CLEAR,  SHWD. 

C 

JONSTK   =   NONSTOCKFD  AREA   FROM  FIRE   OR  OTHER  CATASTROPHE. 

c 

C 

MOYRS   =   NUMBER  OF   YEARS    IN  A  GAME. 

c 

DEFINITIONS  OF  VARIABLES. 

C 

NSP   =  COOE  NUMBER  FOR   SPECIES   BEING  RUN.      USED   TO   SELECT  SPECIES- 

c 

C 

SPECIFIC  RELATIONSHIPS    IN  SUBROUTINES. 

c 

ACCST   =   ANNUAL  COST   PER  ACRE. 

C 

NSUM(I)    =   TOTAL   ACRES    IN   UNDERSTORY  FOR   EACH   10-YEAR   AGE   CLASS  I. 

c 

ADD  =  CU8IC  FEET    IN   SUBSAWLOG  TREES  OBTAINABLE   DURING   SAWLOG  CUT. 

c 

MTSTS   =   NUMBER  OF   TESTS   IN  BATCH. 

c 

ADDHT  =  CHANGE   IN   AVERAGE   STAND  HEIGHT   BY  THINNING. 

c 

PRE  T   =   PERCENTAGE   OF   TREES   RETAINED  AFTER  THINNING. 

c 

AGEO  =   INITIAL   AGE    IN  YIELO  TABLE. 

c 

PREV(I)    =   PRESENT   VALUE   OF  GROWING  STOCK   AND  INCOMES. 

c 

AGEOS(I)    =   AGE  OF   OVERSTORY   STAND   ON   ACRE   I,    AGE  OF   ENTIRE  STAND 

c 

PRIBUdl    =  STUMPAGE   PRICE   PER   M  BD.   FT.    IN  YEAR  I. 

c 

FOR  CLEARCUTTING. 

c 

PRICFII)    =   STUMPAGF   PRICE   PER   100   CU.    FT.   IN   YEAR  I. 

c 

AGEUN(I)   =  AGE  OF   UNDERSTORY   STAND  ON   ACRE  I. 

c 

PP.IDIV(I)    =   PRICES   USED  TO  SET  POLICY. 

c 

AGMRCH  =   MINIMUM   AGE   FOR   STAND  TO   BE    INCLUDED    IN  CROWING  STOCK. 

c 

PROD  =   BOARO   FEET   PER   TOTAL   CUBIC  FOOT. 

c 

ANBDF(I)    =   M   BD.   FT.    PER  ACRE   AT   END  OF   YEAR   I,    IN   YIELD  TABLE. 

c 

PWTH(I)    =   PRESENT  WORTH. 

c 

ANCUV(I)    =  CU.   FT.    PER  ACRE   AT   END  OF  YEAR    I,    IN   YIELD  TABLE. 

c 

RATE   =   RATE   OF   ANNUAL    INCREASE    IN  COSTS. 

c 

ANNET   =   ANNUAL  NET  INCOME. 

c 

RFGN(I)    =   STAND   AGE  WHEN   REGENERATION  CUT    I  OCCURS. 

c 

ANUL  =   NUMBER   BETWEEN   0   AND   127  USED  TO  START  GENERATION  OF 

c 

RES   =   RANDOM  VALUE   FROM   DISTRIBUTION   OF  RESIDUALS  OF   EQUATION  FOR 

c 

PSEUDORANDOM  NUMBERS . 

c 

DBHO. 

c 

BASC  =   BASAL   AREA  REMOVED  PER   ACRE,    IN  YIELD  TABLE. 

c 

RH  TH  V  =   ANNUAL   RETURN   FROM   FINAL  HARVEST. 

c 

BASO  =   BASAL   AREA  PER   ACRE   BEFORE   THINNING,    IN   YIELD  TABLE. 

c 

RETRN  =   ANNUAL    INCOME   FROM  STUMPAGE. 

c 

BAST  =   BASAL   AREA   PER   ACRE   AFTER   THINNING,    IN   YIELD  TABLE. 

c 

RETTH  =   ANNUAL   RETURN   FROM  THINNINGS. 

c 

BATCH  (  I  )    =   JOB  NAME. 

c 

RINT   =   NUMBER  OF   YEARS  FOR  WHICH  GROWTH   PROJECTION    IS  MADE. 

c 

BDFC(I)    =   M  BD.    FT.    REMOVED   PER   ACRE    IN  YEAR    I,    IN  YIELD  TABLE. 

c 

ROTA   =   OLDEST   STAND   AGE   TO  BE  GIVEN    IN  YIELD  TABLE. 

c 

BDFO(I)   =   M  BD.    FT.   PER   ACRE   BEFORE  THINNING   IN   YEAR    I,    IN  YIELD 

c 

SALVB  =   TOTAL   BOARD-FOnT   VOLUME   SALVAGED  ANNUALLY. 

c 

TABLE. 

c 

SCLOSS  =   TOTAL   ANNUAL   COST   OF   SALVAGE   AND  CLEANUP. 

c 

BDFT(I)   =   M  BD.   FT.    PER   ACRE   AFTER  THINNING   IN  YEAR    I,    IN  YIELD 

c 

SCPLT   =   TOTAL   ANNUAL   PLANTING  COST. 

c 

TABLE. 

c 

SCTHN  =   SUM  OF   PRECOMMERC 1 AL   THINNING  COSTS. 

c 

BDPRI    =  CONSTANT.   STUMPAGE   PRICE   PER  M  BD.  FT. 

c 

SITE   =   SITE  INDEX. 

c 

BFCST  =  COSTS   PER  M   BD.   FT.  HARVESTED. 

c 

SPEC(I)    =   NAME  OF   SPECIES   FOR  WHICH  RUN    IS  BEING  MADE. 

c 

BFMRCH  =   MINIMUM  VOLUME   TO   BE   INCLUDED   IN   BD.    FT.   GROWING  STOCK. 

c 

SOFT  =   BASAL   AREA  FOR  SPECIFIED   AVERAGE   D.B.H.   BASIS   GROWING  STOCI< 

c 

BFPCT  =   PCT.    TO  CONVERT   BD.    FT.   PRICE   FOR  THINNINGS. 

c 

LEVEL  STANDARDS. 

c 

BFSALV  =   MINIMUM  M   BD.   FT.   FOR   COMMERCIAL   SALVAGE . 

c 

SUMM(I,J,K)   =   ARRAY  OF    IVARII.JI    AND  VARtl.J)    FOR   PRINTING  BY 

c 

CFMC(I)   =   MERCHANTABLE  CU.   FT.   REMOVED   PER   ACRE   IN   YEAR    I,  IN 

c 

SUMRY  -  NUMBER   I    IN   LIST   OF   COLUMNS,    YEAR   J,   GAME   K . 

c 

YIELD  TABLE. 

c 

TCOST   =   TOTAL   ANNUAL  COSTS. 

c 

CFMO(I)    =   MERCHANTABLE  CU .    FT.   PER   ACRE   BEFORE   THINNING   IN   YEAR  I, 

c 

THIN   =  GROWING  STOCK   LEVEL   FOR   INITIAL  THINNING. 

c 

IN  YIELD  TABLE. 

c 

TOTC   =   TOTAL   CUBIC   FEET   REMOVED  PER   ACRE,    IN  YIELD  TABLE. 

c 

CFMT(I)   =   MERCHANTABLE  CU.    FT.    PER   ACRE   AFTER   THINNING   IN   YEAR  I, 

c 

TOTO  =   TOTAL   CUBIC   FEET   PER   ACRE   BEFORE   THINNING,    IN   YIELD  TABLE. 

c 

IN   YIELD  TABLE. 

c 

TOTT   =   TOTAL   CUBIC   FFET   PER   ACRE   AFTER  THINNING,    IN  YIELD  TABLE. 

c 

CFPCT   =   PCT.    TO  CONVERT  CU.   FT.   PRICE   FOR  THINNINGS. 

c 

TRETU)    =   INDEX   TO  SHOW   CURRENT   TREATMENT   STATUS   OF   ACRE    I  IF 

c 

CFPRI   =  CONSTANT   STUMPAGE   PRICE  PER   100  CU.  FT. 

c 

CLEARCUTTING  NOT  USED. 

c 

CLOSS  =  COST   OF   CLEANUP  OF   ACRE  NOT  SALVAGED. 

c 

VAKII.J)    =  VARIABLES   PRINTED  BY   REPRT2,    ITEM   I,    YEAR  J. 

c 

COMBF  =   MINIMUM  COMMERCIAL   CUT   IN  M   BD.  FT. 

c 

VBHV   =   BOARD-FOOT  VOLUME   FROM  HARVESTS. 

c 

COMCU  =   MINIMUM  COMMERCIAL   CUT    IN   CU .  FT. 

c 

VBTH  =   BOARD-FOOT  VOLUME   FROM  THINNING. 

c 

CPLT  =   PLANTING     COST   PER  ACRE. 

c 

VCHV  =  CUBIC-FOOT   VOLUME   FROM  HARVESTS. 

c 

CRATE ( I )    =   INTEREST  RATES   FOR  DISCOUNTING. 

c 

VCTH  =   CUBIC-FOOT  VOLUME   FROM  THINNING. 

c 

CSTAC  =   ANNUAL  COSTS   BASED  ON  AREA. 

c 

VLBF   =   VOLUME   HARVESTED,    M   BD.  FT. 

c 

CSTVL  =   ANNUAL  COSTS   FOR  VOLUME  HARVESTED. 

c 

VLCU   =   VOLUME   HARVESTED,    CU .  FT. 

c 

CTHN  =  COST   PER   ACRE   OF   PRE COMMERC I AL  THINNING. 

c 

VLLV(I)    =   PERCENT   OF   PREVIOUS  DLEV  TO   BE   LEFT  AT   REGN(I),  ENTERED 

c 

CUCST  =  COSTS   PER   100   CUBIC   FEET  HARVESTED. 

c 

AS   A  DECIMAL. 

c 

CUFT  =  TOTAL  CUBIC   FEET   PER   ACRE   FROM   STAND  VOLUME   EQUATION,  IN 

c 

YRLOS   =   NUMBER  OF   ACRES   LOST  ANNUALLY. 

c 

YIELD  TABLE. 

c 

YSOM(I)    =   AVERAGE   D.B.H.    AFTER   THINNING   AT   STAND   AGE  I. 

c 

CUTAGE  =   MINIMUM  CUTTING  AGE. 

c 

c 

CYCL  =    INTERVAL   BETWEEN    INTERMEDIATE  CUTS. 

COMMON   BATCH (3) , FL AG1 , FL AG2 , I  GAME , I  TEST, I YEAR 

c 

CYCNW(I)    =  NEW  CUTTING  CYCLE   AFTER  REGENERATION  CUT  I. 

COMMON  AGEO, AGMRCH, ANBDFI 181), AN CUV(181), BFMRCH, BFPCT, BFSALV, CFPCT 

c 

DBHE   =   AVERAGE   STAND  D.B.H.   AFTER  REMOVAL   OF   A  PERCENTAGE  OF  THE 

1 , COMBF, COMCU, CYCL, CYCNWI 3 ) , DBHO, DENO, DESCR I  5), DLEV, GIDE, GNTR, 

c 

LIVE  TREES. 

2K0LI6), NGAME, NKOLS, N0YRS,NSP,PRIBD(150),PRICF(150),REGN (3), RINT, 

c 

DBHO  =  AVERAGE   STAND  D.B.H.    BEFORE  THINNING,    IN  YIFLD  TABLE. 

3SITE,SPEC(5),SUMM<6,25,L0>,THIN,VLLVI3),EXTCU 

c 

DBHT  =   AVERAGE   STAND  D.B.H.   AFTER  THINNING,    IN  YIELD  TABLE. 

COMMON   BA,BAST,BDFCI180),BDF0I180),CFMC( 180), CFMOI 180), CUFT, DBHT, 

c 

DEFOR  =   PERCENTAGE,    AS   A   DECIMAL,    OF  NUMBER   OF  ACRES  LOST  ANNUALLY. 

ID  I  AM (ISO) ,FCTR,HITE, J CYCL , N AGO, PRE  T, PROD , REST, ROTA, STAND, VDM, 

c 

DENC  =  TREES   REMOVED  PER   ACRE,    IN  YIELD  TABLE. 

2YSDMI 180) 

c 

DENO  =  TREES   PER   ACRE   BEFORE   THINNING,    IN  YIELD  TABLF. 

COMMON   ACCST, ANUL, BFCST, CLOSS, CPLT, CSTAC, CSTVL, CTHN, CUCST, DEFOR, 

c 

DENT  =  TREES   PER  ACRE   AFTER  THINNING,    IN  YIELD  TABLE. 

1FMRCHDI10),GMNAM(3),IACRE(180),IALCUT,IPLNT,IVAR<26,150), 

c 

DESCRII)    =  DESCRIPTION  OF  TEST  CONDITIONS. 

2JVAR(15,150) ,KOU NT, LAND, LAST, MAL CUT (10),MOLD,NACOS(180I, 

c 

DIAM(I)   =   AVERAGE   D.B.H.    BEFORE   THINNING  AT   STAND  AGE  I. 

3NACUN(180),NONSTK,PRIDIV(10),RATE,RETPN,VAR(1A,150),YRLOS 

c 

DIED  =   PERCENTAGE,    AS   A  DECIMAL,   OF   TREES  THAT   DIE   DURING  PERIOD 

COMMON   AGE0S1 1000) .AGEUNI 1000) , AN NET, CUTAGE, GSVALB, GSVALC, GVLBF, 

c 

RINT. 

1GVLCU,ISUM(18),IYRM,KACR,L0SS,MIX,MTHN,NSUM( 1 8 ) , RETHV , RET TH , SCLOS S 

c 

DISC  I  I  )   =   DISCOUNTED  VALUE  OF   FUTURE  COSTS. 

2 , SCPLT, SCTHN, TCOST, TRET ( 1000) , VBHV, VCHV, VLBF, VLCU 

c 

DISG(I)   =   DISCOUNTED  VALUE  OF  GROWING  STOCK. 

c 

c 

DISI(I)    =   DISCOUNTED  VALUE  OF  FUTURE  INCOMES. 

c 

READ   BATCH   INFORMATION  FROM  CARD   TYPE  1. 

c 

DLEV  =  GROWING  STOCK   LEVEL   FOR  SECOND   AND  SUBSEQUENT  THINNINGS. 

c 

c 

EXTCU  =   MINIMUM  COMMERCIAL   CUT   IN   CU.    FT.   FROM   SAW   LOG  OPERATION. 

READ    (5,1)    1 BATCHI I ) , 1=1, 3) ,NTSTS 

c 

FCTR  =   MERCHANTABLE  CU.   FT.   PER   TOTAL   CU.  FT. 

1   FORMAT  nAS.I'V) 

c 

FMRCHD(I)   =   MINIMUM  CUTTING   AGE   BASED  ON  PRICE. 

IFINTSTS   .GT.   0)    GO  TO  10 

c 

GIDE   =  BASE  FOR   GROWING  STOCK  LEVELS,    80.0    IN   EXAMPLE  SHOWN. 

WRITE  16,5) 

c 

GMNAM(I)    =  NAME   OF  THE  GAME. 

5   FORMAT    (  1H1, //// ,<tOX,  46HNTSTS  NOT   A'POSITIVE   NUMBER   GREATER   THAN  Z 

c 

GNTR  =   PSEUOORANDOM  NUMBER  GENERATOR.   VALUE   0  TO  1023. 

1ER0. ) 

c 

GSVALB  =   DOLLAR  VALUE   OF   BD.   FT.   GROWING  STOCK. 

GO   TO  100 

c 

GSVALC   =   DOLLAR  VALUE   OF  CU.    FT.   GROWING   STOCK . 

c 

c 

GVLBF  =   GROWING   STOCK   VOLUME,   M   BD.  FT. 

c 

OPERATE    SYSTEM   FOR   DESIRED  NUMBER  OF  TESTS. 

c 

GVLCU  =   GROWING  STOCK  VOLUME,   CU.  FT. 

c 

c 

HTSO  =   TREE  HEIGHT   BFFORE  THINNING,    IN  YIELD  TABLE. 

10  00   50  ITESr=L,NTSTS 

c 

HTST  =   TREE  HEIGHT   AFTER  THINNING,    IN  YIELD  TABLE. 

c 

c 

IACREtl)   =   ACRES   OF  WORKING  CIRCLE   IN   EACH   1-YEAR   AGE   CLASS  AT 

c 

ENTER  AND  CHECK   DATA   FOR   A  TEST. 

c 

START   OF  GAME,    BASED  ON  OVERSTORY. 

c 

c 

IALCUT  =•   NUMBER   OF   ACRES    ALLOWABLE   ANNUAL  CUT. 

CALL  BASIS1 

c 

IGAME  =   NUMBER  OF  GAME. 

CALL  CHEK1 

c 

IPLNT  =  NUMBER  OF  NON-STOCKED  ACRES  REGENERATED  ANNUALLY. 

IFIFLAG1    .GT.   0.0)    GO  TO  60 

c 

ISUM(I)   =  TOTAL   ACRES   IN  OVERSTORY   FOR   EACH   10-YR   AGE   CLASS  I. 

IFIFLAG2    .GT.    0.0)    GO   TO  75 

c 

I  TEST  =   NUMBER  OF  TEST. 

c 

c 

IVAR(I.J)   =   VARIABLES   PRINTED   BY  REPRT2,    ITEM   I,    YEAR  J. 

c 

PRINT   YIELD  TABLE   AND  COMPUTE   VOLUME   FOR   EACH  YEAR   OF    STAND  AGE. 

c 

I  YEAR  =   YEAR   WITHIN  RUN  OF   A  GAME. 

c 

c 

KAREA  =  EQUAL   AREA  OF   OVERSTORY   IN  EACH   1— YEAR  AGE  CLASS. 

CALL  YIELD 

c 

KOL(I)   =  COLUMN  NUMBER   1  FROM  REPRT2)    PRINTED  BY  SUMRY. 

CALL  ANVOL 

c 

KOUNT  =   COUNT   OF   ACRES   HARVESTED,   PLUS  ONE • 

c 

c 

LAND  =   TOTAL   ACRES   IN   SIMULATED  WORKING  CIRCLE. 

c 

OPERATE   SYSTEM  FOR  DESIRED  NUMBER  OF  GAMES. 

c 

LAST  =  NUMBER  OF   LAST   ACRE  HARVESTED. 

c 

c 

MALCUT(I)    =   ANNUAL   ALLOWABLE   CUT   BASED  ON  PRICE. 

DO  50   IGAME=1 , NGAME 
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ENTER   AND  CHECK   DATA   FOR   A  GAME • 

I  YEAR  =  0 
CALL  BASIS2 
CALL  CHEK2 

IFIFLAG1  .GT.  O.O)  GO  TO  60 
IFIFLAG2    .GT.    0.0)   GO  TO  75 

PRINT   INITIAL  CONDITIONS   FOR   EACH  GAME • 

CALL  START 
CREATE  ACRES    IN  EACH  AGE  CLASS. 

CALL  AREAS 

I F ( FLAG1    . EQ .   2.0)   GO  TO  90 
CALL  REPRT1 
UK   =  0 

OPERATE    SYSTEM  FOR  OESIRFD  NUMBER   OF  YEARS. 

DO  40    I  YEAR=  I  ,NOYR  S 
CALL  COVER 

I F ( FLAG1    .EQ.    2.0)    GO  TO  90 
CALL  HRVST 
CALL  SUMS 

PRINT   ACRES   IN  EACH  AGE   CLASS   FOR   FIRST  YEAR   AND  AT  END  OF  EACH 
DECADE   OF  THE  GAME . 

IFIIYEAR    .L£.    1)   GO  TO  15 
IF( I JK   . EQ.    10)    GO  TO  20 

GO  TO  30 
15   UK  =  1 

GO   TO  25 
20   UK   =  0 
25  CALL  REPRT1 
30   UK   =    IJK   +  1 

CALL  ANUAL 
40  CONTINUE 

PRINT  VOLUMES   AND  VALUES   FOR  EACH  YEAR. 

CALL  REPRT2 
CALL  WORTH 

SUMMARIZE   DESIRED   NUMBER   OF  COLUMNS   OF  REPRT2 • 

IFINKOLS    .LE.   0)    GO   TO  50 
CALL  SUMRY 
50  CONTINUE 
GO  TO  100 

PRINT   MESSAGE   IF    INPUT  ERRORS   PREVENT   RUN . 
60  WRITE  (6,65) 

65   FORMAT    {  1  HI ,  / /// ,  20X  ,  44HTH  I  S   RUN  CANNOT   BE  MADE  WITH   INPUT  PROVIDE 
10.  ) 
WRITE  (6,701 

70   FORMAT    ( 1H0, 10X , 1 1 1H I NCORRECT  VALUE   PROVIDED   FOR   A   VARIABLE  LATER 
1USED   AS   TERMINAL    INDEX  OF   A  DO  LOOP  OR  COUNTER  OF   COMPUTED  GO  TO.) 
GO  TO  80 
75   WRITE  (6,65) 

80   IFIFLAG2    . EQ.   0.0)    GO   TO  100 
WRITE  (6,85) 

85   FORMAT    I  1  HO , 30X , 73H I NCORRECT  VALUE   PROVIDED  FOR   A   VARIABLE  LATER  U 
1SED   IN  MAJOR  COMPUTATIONS.) 

GO  TO  100 
90  WRITE  (6,65) 

WRITE  (6,95) 

95   FORMAT    ( 1H0 ,////// ,47X , 39HY0U  WENT   BEYOND  AGE   LIMIT  OF   179  YEARS. ) 
100  CALL  EXIT 
END 


Subroutine  BASIS1 

SUBROUTINE  BASIS1 

C 

C   TO  ENTER   VALUES  THAT   00  NOT   CHANGE   DURING  A  TEST. 

C   CONTAINS  NO   STATEMENTS  TO   BE   MODIFIEO   TO   ADAPT  TO  OTHER  SPECIES. 
C 

COMMON  BATCH (3) , FLAG1 , FLAG2, I GAME, ITEST, I YEAR 

COMMON  AGEO,  AGMRCH ,  AN  BOF  (  181),ANCIIV(181),BFMRCH,8FPCT,BFSALV,CFPCT 
1,C0M8F,C0MCU,CYCL,CYCNW(3), DBHO , DENO , OE SCR ( 5 ) , DL EV , G I DE , GNTR, 
2K0L (6)  .NGAME ,NKOLS ,NOYRS ,NSP, PR  I PD( 150 ),PRICF(150),REGN(3),RINT, 
3SI TE.SPEC (5) ,SUMM(6,25, 10 ) .THIN, VLLVI 3) , EXTCU 

COMMON  8A,8AST,BOFC(180),BDFOIlflO),CFMC(180),CFMO(180),CUFT,DBHT, 
101  AM (180) , FCTR.HITE, JCYCL , NAGO, PRET, PROD, REST , ROTA , ST AND , VDM , 
2YSDM (180) 

COMMON   ACCST, ANUL, BFCST, CLOSS , CPL T , C ST AC , C STVL , CTHN , C UC ST , DE F OR , 
1FMRCHD(10),GMNAM(3),IACREI180),IALCUT,IPLNT,IVAR(26,150), 
2JVAR(15,150)  , KOUNT , LAND, LAST, MAL CUT (  10  I , MOLD.NACOS ( 180 ) , 
3NACUNI  180)  ,NCNSTK,PRIDIV(  10  )  ,  RAT  E  ,  RETRN,  V  AR  (  14,  150  )  ,YRLOS 

COMMON  AGE OS ( 1000 ), AGEUNI 1000 ) , ANN ET , CUT AGE , GSVALB , G SVALC ,GVL8F , 
1GVLCU, I  SUM! 18 ) , IYRM,KACR, LOSS, MIX, MTHN, N  SUM ( 18),RETHV,RETTH,SCL0SS 
2,SCPLT,SCTHN,TCOST,TRET(1000>,VBHV,VCHV,VL8F,VLCU 


CYCNWI I )    =  0.0 

REGN(I)    =  0.0 

VLLVU  )    =  0.0 
3  CONTINUE 

DO   5  1=1,150 

PRIBDI I )    =  0.0 
5   PRICFI 1  )    =  0.0 

DO   10  1=1,181 

ANBOFI I  )  =  0.0 
10  ANCUVI I )    =  0.0 

DO   15  1=1,6 

DO   15  J=l,25 

DO   15  K=l, 10 
15   SUMM(I,J,K)    =  0.0 

NSP  =  0 

READ  VALUES   THAT   DO  NOT   CHANGE   DURING   A  TEST,    FROM  CARD  TYPES   2   TO  6. 

READ   (5,25)   SPEC, NSP 
25   FORMAT  (5A8.I3) 

READ    (5,30)    (DESCR(I),I=1,5),NGAME,N0YRS,NK0LS,(K0L(I ),!=1,6) 
30  FORMAT  (5A8.9I4) 

READ    (5,35)    SITE, CYCL,R1NT, THIN, DLEV, AGEO, OENO, DBHO , G IDE 
35   FORMAT    ( 7F5 . 0 , F5 . 2 , F5 .0 ) 

READ    (5,40)    REGN ( 1  I , VLLVI I) , CYCNWI 1) ,REGN( 2) , VLLV I  2 ) , C YCNW ( 2 ) , REGN 
1(31 

40  FORMAT  (10F8.3) 

READ   (5,45)    AGMRCH , 8FMRCH , BF SAL V , COMCU , EXTCU, COMBF , BF PCT  ,  CFPCT, 
1 GNTR , BOPR I ,CFPRI 
45   FORMAT    ( F5 .0 , 2F5 . 2 , 2F 5 . 0, F5 . 2 , 2F 5. 3, F5. 0, 2F5 . 2 ) 

CREATE   ARRAYS   OF   CONSTANT   PRICES  OR  READ  VARIABLE  PRICES  FROM  CARD 
TYPES  7   AND  8. 

IFICFPRI    .NE.    0.0)    GO   TO  50 

READ   (5,40)    (PRICFI I), 1=1, 1501 

GO  TO  60 
50  DO   55  1=1,150 
55   PRICFI I )    =  CFPRI 
60   IFIBDPRI    .NE.    0.0)    GO  TO  70 

READ   (5,40)    I  PR IBD(I), 1  =  1,150) 

GO   TO  90 
70  DO  80   1=1 ,150 
80   PRIBD(I)    =  BDPRI 
90  RETURN 

END 


Subroutine  CHEK1 


SUBROUTINE  CHEK1 
TO  CHECK  VALUES   READ   IN  BY  BASIS1. 

CONTAINS  NO   STATEMENTS   TO   BE   MODIFIED  TO   ADAPT   TO  OTHER  SPECIES. 
COMMON  BATCH! 3) , FLAG1 , FLAG2, I  GAME, ITEST,  I  YEAR 

COMMON  AGEO, AGMRCH , AN BDF I  181 ), ANCUVI 181 ) > BF MRCH , BF PC T , BF SAL V, CF PC T 
1 , COMBF , COMCU, CYC L, CYCNWI 3 ) , DBHO , DENO, DESCR I  5  I , OL EV , G I DE , GNTR , 
2KOL(6),NGAME,NKOLS,NOYRS,NSP,PRIBD(150),PRICF(150),REGNI3),RINT, 
3SITE.SPECI5) ,SUMM(6,25,10),THIN,VLLV( 3), EXTCU 

COMMON   BA,BAST,BDFC(180),BDFO(180),CFMC(180),CFMO(180) ,CUFT,DBHT, 
1DI AMI  1801 , FC TR, H I TE, JCYCL, NAGO, PRET, PROD, REST, ROT A, STAND, VDM, 
2YSDMU80) 

COMMON   ACCST, ANUL, BFCST, CLOS S , CPLT , CSTAC, C STVL, CTHN, CUC ST, DEFOR, 
1FMRCHD(10),GMNAM(3),  I  ACRE ( 1 80 ) , I ALCUT , I PLNT , I VAR ( 26, 1 50 ) , 
2JVARI 15 , 150)  ,KOUNT, LAND, LAST, MALCUTI 10  I , MOLD, NACOS ( 180), 
3NACUNI 180)  ,NONSTK,PRI DIVI 10  I , R AT E , RETRN, V AR I  14,  150),YRL0S 

COMMON   AGEOSI 1000  1 , AGEUNI 1000 ), ANNET, CUTAGE, GSVALB ,G SVALC ,GVLBF , 
1GVLCU,ISUM(18),IYRM,KACR,L0SS,MIX,MTHN,NSUM(18) , RE THV , RETTH , SCLOSS 
2, SCPLT,SCTHN,TCOST,TRET( 1000) , VBHV , VCHV , VL BF , VLCU 


FLAG1   =  0.0 
FLAG2   =  0.0 
I F I NGAME  .LT 
IFINKOLS  .GT 
IFINOYRS  .LT 
IFINOYRS  .GT 
IFINSP  .LT. 
I F ( AGEO  .LE. 
IFIBFPCT  .LE 
IFICFPCT  .LE 
IFICYCL   . L  F . 
I F ( DBHO  .LE. 
I F ( DENO  .LE. 
I F ( DLEV  .LE. 
IFIGIDE  .LE. 
I F I PRIBDI 1 ) 
IF(PRICFIl) 
I F ( REGN I  1 ) 
I F 1 R I  NT  .LE 
IFISITE  .LE 
IFITHIN  .LE 


.  1)  F  LAG  1  = 
.  6)  FLAG1  = 
.  1)  FLAG1  = 
.  150)  FLAG1 
1)  FLAG1  =  1. 
0.0)    FLAG2  = 


1.0 
1.0 
1.0 

=  1.0 

0 

1.0 


0.0)  FLAG2  =  1.0 
0.0)  FLAG2  =  1.0 
0.01  FLAG2  =  1.0 
FLAG2  =  1.0 
FLAG2  =  1.0 
FLAG2  =  1.0 
FLAG2  =  1.0 


0.0) 
0.0  ) 
0.0) 
0.0  ) 

.LE.    0.0)    FLAG2   =  1. 

.LE.   0.0)    FLAG2   =  1. 

LE.   0.0)    FLAG2  =  1.0 
0.01    FLAG2   =  1.0 
0.0)    FLAG2   =  1.0 
0.0)    FLAG2  =  1.0 


SET   INITIAL   VALUES   OF  ZERO. 

DO   1  1=1,6 
1   KOL I  I )    =  0 
DO  3    I  =1,3 


CHECK   THAT  CYCL    IS   EQUAL   TO  OR   A  MULTIPLE  OF  RINT. 

IXN   =  CYCL   /  RINT 
IRINT  =  RINT 
JCYCL  =  CYCL 

TEM  =   JCYCL   -    IRINT   *  IXN 
IFITEM   .NE.   0.0)    FLAG2  =  1.0 
RETURN 
END 
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Subroutine  YIELD 


SUBROUTINE  YIELD 

TO  COMPUTE   YIELOS   OF   MANAGED,    EVEN-AGED  STANDS. 

CONTAINS   SIX   SETS  OF   STATEMENTS   THAT   ARE   SPEC IES-SPEC  I F  IC • 

FOOTNOTE   FORMATS  WILL  VARY  WITH  MERCHANTABILITY  STANDARDS. 

COMMON   BATCH! 3) , FLAG 1 , FLAG2, IGAMEt I T  E  ST, IYEAR 

COMMON   AGEO, AGMRCH, ANBDFI 18  1), ANCUVI 181),BFMRCH,BFPCT,SFSALV,CFPCT 
1 ,COMBF ,COMCU,CYCL,CYCNW( 3 ) , D8HO, OENO, DESCR I  5 > , DL EV , G I OE , GNTR , 
2K0LI6) »NGAME»NKOLS»NOYRS»NSP»PRIBD( 150),PRICF(150),RFGN(3),RINT, 
3SITE,SPECI5),SUMM(6,25,10),THIN,VLLV(3),EXTCU 

COMMON  BA, BAST, BDFCI 180) , BDF01 180),CFMC( 180) ,CFMD( 180) , CUFT, DBHT, 
101  AMI  180) ,FCTR,HITE,JCYCL,N AGO, PRET, PROD, REST, ROTA, STAND, VDM, 
2YSDMI180) 

COMMON  ACCST, ANUL , BFCST , CLOSS , C PL T , C ST  AC , CS TVL , CTHN , CUC S T , DE FOR , 
1FMRCHDI10) ,GMNAM( 3) , I  ACRE (180), IALCUT, I PLNT, IVAR ( 26, 150) , 
2JVAR(15,150) ,K0U NT, LAND, LAST, MALCUTI 10 > ,M0L0,NAC0S (180), 
3N AC  UNI  180) ,NONSTK,PRIDIV( 10 ) , RATE , RE TRN , V AR I  14, 1 50 ) , YRLOS 

COMMON  AGEOS I  1000) , AGEUN I  1000) , ANNET , CUT  AGE , GS VAL B , GS V ALC , GVLBF , 
1GVLCU, ISUMI18 ) , IYRM,KACR,LOSS,MIX,MTHN,NSUM( 1 8 ) , RE THV , R E T TH , SCLOS S 
2,SCPLT,SCTHN,TC0ST,TRET(1000),VBHV,VCHV,VLBF,VLCU 


REST   =  DLEV 
CYCL   =  CYCNW(l) 
GO   TO  30 

70    IF (AGEO   . NE •    REGN ( 2 ) )    GO  TO  75 
OLEV   =   DLEV   *  VLLVI2) 
PEST  =  DLEV 
CYCL   =  CYCNWI2) 
GO  TO  80 

75    I F ( AGEO   .NE.    REGNI3I)    GO  TO  80 
DLEV   =   DLEV   *  VLLVI3) 
REST   =  DLEV 
CYCL   =  C  YCNW  (  3  ) 

INCREASE   O.B.H.    BY   THINNING  AND  COMPUTF   POST-THINNING  VALUES. 

80  CALL  CUTS 

I F  ( PRET    .C,E.    100.0)    GO  TO  83 
YSDM(N)   =  D6HT 

JDENT  =    ( BAST   /    (0.0054542   *   DRHT   *   DBHT I )   +  0.5 
DENT   =  JDENT 

BAST   =   0.0054542   *  DBHT   *  DBHT  *  DENT 
SKIP   THINNING   IF   BASAL   AREA   BELOW   SPECIFIED  RESIDUAL. 


ADDHT  =  0.0 

I F ( BAST   .LT.    BASO)    GO   TO  85 

BDFT   =  0.0 

83 

BAST   =  BASO 

CFMT  =  0.0 

HTST   =  HTSO 

HTCUM  -  0.0 

DENT   =  DENO 

JBDFC  =  0 

JDENT  =   DENO   +  0.5 

JBDFO  =  0 

DBHT   =  DBHO 

JBDFT  =  0 

YSDM(N)    =  DBHT 

JCFMC   =  0 

TCTT   =  TOTO 

JCFMO  =  0 

HDFT   =  BDFQ(N) 

JCFMT   =  0 

CFMT   =  CFMOIN) 

DO   1  1-1,180 

GO   TO  130 

BDFC (11=  0.0 

C 

BDFOII)   =  0.0 

c 

COMPUTE   CHANGE    IN   AVERAGC   HEIGHT   FROM  THINNING. 

CFMCII)    =  0.0 

c 

STATEMENTS   FOR   ADDHT   ARE  SPECIES-SPECIFIC. 

CFMOI I )   =  0.0 

c 

D I  AM  I  I )   =  0.0 

85 

GO   TO    (90,95, 100 ) ,  NSP 

YSDMI I )    =  0.0 

90 

ADDHT  =   7.64833  -  3.82286   *   ALOG 1 0 1 PRET ) 

1  CONTINUE 

GO  TO  120 

NAGO  =  AGEO 

95 

ADDHT  =  6.79950  -  3.41979   *   AL0G10 ( PRET ) 

N  =  AGEO 

GO  TO  120 

CHAC  =  CYCL 

100 

CONTINUE 

OZIB  =  DLEV 

120 

HTCUM   =  HTCUM  +  ADDHT 

DETERMINE  OLDEST   STAND   AGE   TO  APPEAR   IN  YIELD  TABLES. 

DO  5  NA=1,3 
L   =  4  —  NA 

IFIREGN(L)    .EQ.   0.0)   GO  TO  5 
ROTA  =  REGN(L) 
GO  TO  10 
5  CONTINUE 
10  OIAM(N)   =  DBHO 

ALLOW  FOR  FELLING  AGES   OLDER  THAN  ROTATION  WITH  CL EARCUTT I NG . 


HTST  =   HTSO  « 
BA   =  BAST 
MICE   =  HTST 
STAND   =  DENT 
VDM  =  DBHT 
CALL  VOLS 
TOTT  =  CUFT 
SOFT  =  CUFT'  * 
CFMT  =   CUFT  * 


PROD 
FCTR 


CHANGE   MODE   AND  ROUND  OFF   FDR  PRINTING. 


c 

130  JCYCL 

CYCL 

I F ( REGN ( 2 )    .EQ.   0.0)    ROTA  =   ROTA   ♦  20.0 

JSITE 

SITE 

I F ( ROTA   .GT.   180.0)   ROTA  =  180.0 

JOENO 

DENO  +  0 

.5 

c 

JHTSO 

HTSO  +  0 

.5 

c 

OBTAIN  AVERAGE  HEIGHT   AND  VOLUMES   PER  ACRE. 

JTOTO 

TOTO  +  0 

.5 

c 

STATEMENTS  FOR  HTSO  ARE  SPECIES-SPECIFIC. 

JBASO 

BASO   +  0 

.5 

c 

JCFMO 

CFMOIN) 

*  0.5 

BASO  =  DENO  *  0.0054542   *   DBHO  *  DBHO 

JBDFO 

( BDFO(N) 

*   0.  1 

GO  TO   (15,25,35),  NSP 

JBDFO 

JBDFO  * 

10 

15   I F I AGEO  .GT.   55.0)  GO  TO  20 

JHTST 

HTST  +  0 

.5 

HTSO  =  0.01441   *  AGEO  *  SITE  -  0.12162   *   AGEO  -  1.50953 

JTOTT 

TOTT   +  0 

.5 

GO  TO  60 

JCFMT 

CFMT   +  0 

.5 

20  HTSO  =  0.59947  -  61.5019   /   AGEO   +   0.80522   *   ALOGIO(SITE)    +  20.5252 

CFMT  = 

JCFMT 

18  *  AL0G10ISITE)    /  AGEO 
HTSO  =   10.0  **  HTSO 
GO  TO  60 
25   I F ( AGEO   .GT.   45.0)   GO   TO  30 

HTSO  =   3.86111  -  0.05979   *  AGEO  +   0.01215   *   AGEO   *  SITE 
GO  TO  60 

30  HTSO  =  0.33401  -  33.2866   /   AGEO   +  0.92341   *   AL0G10ISITE)    +  6.27811 
1   *  ALOGIO(SITE)    /  AGEO 

HTSO  =   10.0  **  HTSO 

GO  TO  60 
35  CONTINUE 

GO  TO  60 
40  CONTINUE 
60  BA  =  BASO 

HITE  =  HTSO 

STAND  =  OENO 

VDM  =  DBHO 

CALL  VOLS 

TOTO  =  CUFT 

BDFO(N)   =  CUFT  *  PROD 

CFMOIN)   =  CUFT  *  FCTR 

REST  =  THIN 

ENTER  LOOP  FOR  ALL   REMAINING  COMPUTATIONS   AND  PRINTOUT. 

DO  500  1=1,100 
65  I F ( AGEO  .GE.   ROTA)   GO  TO  130 

CHANGE   STANDARDS    IF   A  REGENERATION  CUT    IS  DUE. 

I F ( REGN ( 2 )    .EQ.   0.0)   GO  TO  80 
I F ( AGEO   .LT.    REGN ( 1 ) )    GO  TO  80 
I F ( AGEO   .NE.   REGN ( 1 ) )   GO  TO  70 
DLEV  =  DLEV  *  VLLV(l) 


IFUCFMT  .GT.  JCFMO)  JCFMO  =  JCFMT 
CFMOIN)    =  JCFMO 


0.1) 
10 


0.001 

JBDFO)  JRDFO 


JRDFT  =  (BDFT 
JBDFT  =  JBDFT 
BDFT   =  JBDFT 
BDFT   =   BDFT  * 
I F I JBDFT  .GT. 
BDFUIN)    =  JBDFO 
BOFO(N)    =   BDFO(N)    *  0 
JBAST   =   BAST   ♦  0.5 
JDENC  =   JDENO  -  JDENT 
JBASC   =   JBASO  -  JBAST 
JTOTO 


JTOTC 
JCFMC 

IF  I JCFMC  .LE 
CFMC IN) 
JBDFC  = 


JTOTT 
JCFMO  -  JCFMT 

0)  JCFMC 
=  JCFMC 
JBDFO  -  JBDFT 


IFIJBDFC    .LE.   0)    JBDFC   =  0 
BDFC 1 N)    =  JBDFC 
BDFC I N )    =   BDFC(N)    *  0.001 
IF! I    .GE.   2)    GO  TO  180 

WRITE   HEADINGS   FOR  YIELD  TABLE  ON  PAGE  TYPE  1. 

WRITE  16,150) 
150  FORMAT    I1H1,//,63X,1LHPAGE   TYPE  1) 

WRITE    (6,155)    SPEC, JSITE, JCYCL, THIN, DLEV 
155   FORMAT    ( 1H0,27X,48HY!ELDS   PER   ACRE  OF   MANAGED ,   EVEN-AGED   STANDS  OF 
1    ,5A8/ 1H0.49X , 11HSITE   INDEX   , I  3 , 1H, , 1 4 , 19H-YE AR  CUTTING  CYCLE/1H0, 
242X.26HTHINNI  \|C   LEVELS=    INITIAL   -,F6.0,14H,    SUBSEQUENT  -,F6.0,//> 
WRITE  (6,160) 

160  FORMAT    ( IHO ,  2 5X ,  38HENT I  RE   STANO   BEFORE   AND  AFTER   TH INNING, 28X, 2 6HP 
1ERI0DIC    INTERMEDIATE  CUTS) 
WRITE  (6,165) 
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165  FORMAT    (1H0,9X,5HSTAND,  10X , 5H8ASAL , 3X , 7HAVERAGE , 2X , 7H AVERAGE , 3X , 5H 
1T0TAL,3X,9HMERCHANT-,3X,9HSAWTIMBER,9X,5HBASAL,4X, 5HTOT AL , 3X , 9HMER 
2C HAN T- . 3 X,9H SAW TIMBER) 
WRITE  (6,170) 

170   FORMAT    (1H   , 10X , 3HAGE , 4X , 5HTREE S , 3X , 4HARE A , 4X , 6HD . B . H .  ,  3X  ,  6HHE  I  GHT 
1,2X,6HV0LUME,2X,11HABLE  VOLUME  ,  4X  ,  6HV0LUME ,  3X  ,  5-HTR  EES  .  3X  ,  4HARE  A ,  3X 
2 ,6H VOLUME ,2X , 11HABLE  VOLUME , AX , 6HV0LUM E ) 
WRITE  (6,175) 

175  FORMAT  (1H  , 8X , 7H ( YE ARS ) , 3X , 3HN0. , 3X , 6HSQ .FT. , 4X , 3HI N . , 6X , 3HFT. , 4X 
1 .6HCU.FT. ,5X,6HCU.FT. , 8X , 3HMBF , 5X , 3HN0 . , 3X , 6HSQ . FT . , 2X , 6HCU. FT. , 5X 
2 ,6HCU. FT. ,8X,3HMBF ) 

C 

C   WRITE   TABLE   ENTRIES   OF   01 AMETER,   VOLUMES,    ETC.,   ON   PAGE   TYPE  1. 
C 

180   WRITE    (6,185)    AGEO , JDENO , JBASO , DBHO, JHTSO , JTOTO , CFMO ( N ) , BOFO ( N ) 
185   FORMAT    ( 1H0 , 9 X , F4. 0 , 4 X , 1 5 , 2X , I  4, 5X , F5 . 1 , 5X, 1 3 , 4X , I  5, 5X , F6. 0, 5X , F 7. 

13) 

IF ( AGEO   .GE.   ROTA)   GO  TO  510 

WRITE    (6,190)    AGEO, JOENT, J  BAST, DBHT, JHTST, JTOTT , C FMT , BDFT , JDENC  ,  JB 
1ASC,  JTOTCCFMC(N)  ,  BDFC  (  N  ) 
190  FCRMAT    (1H   , 9X , F4 . 0 , 4X , I  5 , 2X , 1  4, 5X , F5 . 1, 5X, I  3 , 4X , I  5 , 5X , F6 . 0 , 5X , F 7 . 
13,4X,I5,3X,I3,5X, I A , 5X , F5 . 0 , 6X  ,  F7 . 3 ) 

C 

C   COMPUTE   VALUES  FOR  EACH  PERIOD.   THIN   AS  SPECIFIED  ON   DATA  CARDS. 

C 

IK   =   CYCL   /  RINT 
DO  450  L=lfIK 
AGEO  =   AGEO  ♦  RINT 
N  =  AGEO 

I F ( AGEO   .GT.    ROTA)   GO  TO  510 

C 

C   COMPUTE   NEW   D.B.H.    BEFORE   THINNING  AND  ROUND  OFF   TO   0.1  INCH. 
C   STATEMENTS   FOR  DBHO   ARE  SPECIES-SPECIFIC. 

C 

GO  TO    (200,205,210),  NSP 
200   DBHO  =   1.0097*DBHT   ♦   0.0096*SITE  -   1 . 5766*AL0G 1 0 ( BA ST )    +  3.3021 

GO  TO  240 

205   DRHO   =   1.0222*DBHT   +   0.0151*SITE  -   1 . 241 7*AL0G10 ( BAS T )    +  2.1450 

GO  TO  240 
210  CONTINUE 

240   I DBHO  =   DBHO   *   10.0   +  0.5 
DBHO  =  IDBHO 
DRHO  =  DBHO  *  0.1 

C 

C   ADD  RANDOM  ELEMENT  TO   PREOICTEO   DBHO,    IF  DESIRED. 
C   STATEMENT  FOR   RES   IS  SPECIES-SPECIFIC. 

C 

IFIGNTR    .GT.    1024.0)    GO  TO  300 
250   IDIV  =    (17.0  *  GNTR   ♦   3.0)    /  1024.0 
NGNTR  =  GNTR 

GNTR   =    (17   *   NGNTR   +   3)    -   1024  *  IDIV 
IFIGNTR    .GT.    1000.01    GO  TO  250 
IFIGNTR    . L  T .    0.0)    GO   TO  250 
Al   =   GNTR  *  0.01 
A2   =   Al    *  Al 

GO  TO    (255,260,265),  NSP 
255  RES   =   0.9565   *   Al   -  0.0523   *   A2  -   0.0063   *   Al   *   A2   t   0.00084  *  A2 
1*   A2  -  3.3009 

GO  TO  280 

260  RES  =  0.2527   *  Al  -   0.0669  *   A2   +   0.0079  *   Al   *   A2  -   0.0003   *  A2 
1*   A2   -  0.4282 

GO   TO  280 
265  CONTINUE 
280   IRES  =  RES 

IFIRES   .LT.   0.0)    IRES   =   RES   -  0.5 

IF|RES   .GT.   0.0)    IRES   =   RES   +  0.5 

AD J  =  IRES 

DBHU  =   DBHO  +   ADJ   *  0.1 
300  DIAM(N)    =  DBHO 

C 

C   SEDUCE   DENSITY  FOR  NONCATASTROPHIC  MORTALITY. 
C   STATEMENT   FOR  DIED   IS  SPECIES-SPECIFIC. 

C 

GO  TO   (310,315,320) ,  NSP 
310   IFIDBHT    .GE.    10.0)    GO  TO  345 

DIED  =  0.00247   +   0.00124   *  DBHT   *   0.00028  *   DBHT  *   D8HT   *  0.000005 
121   *   BAST   *   BAST  -   0.0000905  *  DBHT  *  BAST 

GO  TO  340 
315    IFIDBHT   .GE.    10.0)    GO  TO  345 

DIED  =   0.05285  -   0.01346   *  OBHT   +   0.00226  *   DBHT  *   DBHT  +  0.000006 
16  *   BAST   *   BAST   -   0.0001931   *   DBHT   *  BAST 

GO  TO  340 
320  CONTINUE 

340   IFIOIFD   .LT.   0.0)    DIED  =  0.0 

OENO  =   DENT   *   (1.0  -  DIED) 

MNK   =  DENO  +  0.5 

DE  NO  =  MNK 

GO  TO  350 
345   DENO  =  DENT 

350  BASO   =  DENO  *    (0.0054542   *   DRHO   *  DBHO) 

C 

C   OBTAIN  AVERAGE  HEIGHT   AND  VOLUMES   PER  ACRE. 
C   STATEMENTS   FOR  HTSO  ARE  SPECIES-SPECIFIC. 

C 

GO  TO    (370,380,390),  NSP 
370    I F ( AGEO   .GT.    55.0)    GO  TO  375 

HTSO  =   0.01441   *   AGEO   *   SITE  -  0.12162  *   AGEO  -  1.50953 
GO  TO  420 

375  HTSO  =  0.59947  -  61.5019  /  AGEO  *  0.80522  *  AL0G10ISITE)  +  20.5252 
1R   *  ALOGIO(SITE)    /  AGEO 

HTSO  =    10.0  **  HTSO 

GO   TO  420 
380   IF (AGEO   .GT.   45.0)    GO  TO  385 

HTSO  =   3.86111  -  0.05979  *  AGEO  +   0.01215   *   AGEO  *  SITE 

GO  TO  420 


385  HTSO  =  0.33401  -  33.2866   /   AGEO  ♦  0.92341  *   ALOGIO(SITE)   ♦  6.27811 

1    *   ALOGIO(SITE)    /  AGEO 

HTSO  =   10.0  **  HTSO 

GO  TO  420 
390  CONTINUE 

GO  TO  420 
395  CONTINUE 
420  HTSO  =  HTSO  +  HTCUM 

BA  =  BASO 

HITE   =  HTSO 

STAND  =  DENO 

VOM  =  DBHO 

CALL  VOLS 

TOTO  =  CUFT 

BDFO(N)   =  CUFT  *  PROD 

CFMO(N)    =  CUFT  *  FCTR 

C 

C   TEST   IF   REGENERATION  CUT    IS  DUE. 

C 

DO  430  KU=1,3 

I F ( AGEO   . EQ.    REGN(KUI)   GO  TO  65 
430  CONTINUE 

C 

C   CHANGE   MUDE   AND  ROUND  OFF   FOR  PRINTING. 

C 

IF(L  . EQ.  IK)  GO  TO  460 
KOENO  =  DENO  +  0.5 
KHTSO  =  HTSO  +  0.5 
KBASO  =  BASO  +  0.5 
KTOTO  =  TOTO  +  0.5 
JCFMO  =  CFMO(N)  +  0.5 
CFMO(N)    =  JCFMO 

JBDFO  =    (BDFO(N)    *  0.1)    +  0.5 

JBDFO  =   JBDFO   *  10 

BOFOIN)    =  JBDFO 

BDFO(N)    =   BDFOIN)    *  0.001 

C 

C   WRITE  VALUES   FOR   END  OF   PERIOD   IF   THINNING  NOT  DUE. 

C 

WRITE    (6,185)    AGEO, KDENO, KBASO, DBHO, KHTSO, KTO TO, CFMD( N ) , BDFO ( N I 

DBHT  =  DBHO 

BAST  =  BASO 

DENT  =  OENO 
450  CONTINUE 
460   REST  =  DLEV 
500  CONTINUE 

C 

C   WRITE   TABLE   FOOTNOTES.      CHANGE  OR   ADD  TO  FORMAT   STATEMENTS  FOR  OTHER 

C   MERCHANTABLE  LIMITS. 
C 

510   I F ( REGN ( 2 )    .EO.    0.0)   GO  TO  530 
WRITE  (6,520) 

520   FORMAT    ( 1H0 , / / , 1 IX , 106HTH I S  TABLE   SHOWS   VALUES  FOR   SEED  TREE  OR  SH 
1  EL  TERWOOD  CUTTING  WITH  TIMING  AND   AMOUNTS   SPECIFIED  PREVIOUSLY.) 

GO   TO  550 
530   WRITE  (6,5401 

540   FORMAT    ( 1H0, / / , 1 1 X , 85HTH I S  TABLE   SHOWS  VALUES  FOR  CLEARCUTTING  WIT 

1H   ANY   ROTATION  UP   TO   A   SPECIFIED  MAXIMUM.) 
550  GO   TO    (560,575,590),  NSP 
560   WRITE  (6,5651 

565   FORMAT    ( 1H0 , 10X , 66HME RCH.    CU.   FT.   -   TREES   6.0   INCHES  D.B.H.   AND  LA 

1RGER   TO  4-INCH   TOP. ) 
WRITE  (6,570) 

570  FORMAT    ( 1  HO , 1  OX , 60 HBD .   FT.   -  TREES   10.0   INCHES  D.B.H.   AND   LARGER  T 
10  8-INCH  TOP. ) 
GO  TO  650 
575   WRITE  (6,580) 

5R0   FORMAT    I  1  HO , 1  OX , 66HME RCH .   CU.    FT.   -  TREES   5.0   INCHES  D.B.H.   AND  LA 
1RGER   TO  4-INCH  TOP. ) 
WRITE  (6,585) 

585   FORMAT    ( 1  HO , 1  OX , 59HBD .    FT.   -   TREES   6.5    INCHES  D.B.H.   AND  LARGER  TO 
1   6- I NCH  TOP. ) 

GO  TO  650 
590  CONTINUE 
650  CYCL   =  CHAC 

DLEV  =  DZ1B 

AGEO  =  NAGO 

PETURN 

END 


Subroutine  VOLS 

SUBROUTINE  VOLS 

C 

C   TO  COMPUTE  VOLUMES   PER   ACRE    IN  VARIOUS  UNITS. 

C    STATEMENTS  FOR  CUFT,    FCTR,    AND   PROD  ARE  SPECIES-SPECIFIC. 

C 

COMMON   BATCH( 3 ) , FLAG1, FLAG2, I  GAME, I  TEST,  I  YEAR 

COMMON   AGEO, AGMRCH , AN BOF ( 181 ) ,ANCUV( 181 ) , BF MRCH , BF PC T , BFSAL V, CFPC T 
1 .COMBF ,COMCU,CYCL,CYCNW( 3 ) , DBHO, DEN0,DESCR(5), OL EV , G IDE , GNTR , 
2K0L (6) ,NGAME , NKOLS , NOYRS ,  NSP, PRlBOd  50), PRICFd  50), REGNO). RINT, 
3SITE,SPEC(5),SUMM(6,25,10),THIN,VLLV(3),EXTCU 

COMMON   BA, BAST, BDFC(180),BDFO(180),CFMC(1 80), CFMO (180) , CUFT, DBHT, 
1 H I  AM ( 180) , FCTR, HITE, JCYCL, NAGO, PRET, PROD, REST , ROT A , ST AND, VDM , 
2YSDMU80) 

CCMMON   ACCST , ANUL , BFC ST , CLOSS , CPLT , C ST AC , C STVL , C THN , C UC ST , DEFOR , 
1FMRCHD ( 10 ) , GMNAM ( 3 l,IACRE(180),IALCUT,IPLNT,IVAR(26,150), 
2JVAR(15,150) , KOUNT.LAND, LAST .MALCUTI 10),MOLD,NAC0S(180), 
3NACUN(180),NONSTK,PRIOIV(10),RATE,RETRN,VAR(14,150),YRLOS 

COMMON   AGEOS ( 1000) , AGEUNI 1000 ) , ANNET , CUTAGE , GSVALB .GSVALC .GVLBF , 
1GVLCU, ISUMI 18) , I YRM,KACR,LOSS,MI X,MTHN,NSUM( 18) , RETHV.RETTH, SCLOSS 
2,SCPLT,SCTHN,TC0ST,TRET(10O0),VBHV,VCHV,VLBF,VLCU 

C 
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FCTR  =  0.0 
PROD  =  0.0 

E  COMPUTE   TOTAL  CUBIC  FEET   PER  ACRE. 

D2H  =  VOM  *   VDM  *  HI TE 
GO  TO    (5.15,25) ,  NSP 
5   IFID2H   • GT •   6000.0)    GO  TO  10 

CUFT  =    (0.00225   *   D2H  -   0.00074  *   8A   +   0.03711)    *  STAND 
GO  TO  70 

10  CUFT  =    (0.00247   *  D2H   +  0.00130   *   BA  —   1.402861    *  STAND 

GO  TO  70 
15   IFID2H   .GT.   7000.0)   GO  TO  20 

CUFT  =    (0.00276  *  D2H  -  0.00059   *   BA  -   0.005771    *  STAND 

GO  TO  70 

20  CUFT  =    10.00248   *  02H  +   1.96336)    *  STAND 

GO  TO  70 
25  CONTINUE 

GO  TO  70 
30  CONTINUE 

70   IFIVOM   .LT.   5.0)   GO  TO  200 

C 

C  OBTAIN  CONVERSION  FACTORS   FOR  MERCHANTABLE   CUBIC  FEET. 
C 

GO  TO   (100.105,1101,  NSP 
100   IFIVDM   .GT.   6.7)   GO  TO  102 

FCTR  =  0.26612   *  VDM  -  1.12689 

GO  TO  140 
102    IFIVDM   .GT.    10.4)   GO  TO  104 

FCTR  =   3.46993  -  0.12017   *  VDM  -   13.41984   /  VDM 

GO  TO  140 

104  FCTR  =  0.99666  -  0.66932   /  VOM 
GO  TO  140 

105  IFIVDM   .GT.   5.75)    GO  TO  107 
FCTR  =  0.30711   *  VDM  -  1.11042 
GO  TO  140 

107   IFIVDM   .GT.   9.8)   GO  TO  109 

FCTR   =   2.32307  -  0.06419   *  VDM  -   7.47890   /  VDM 
GO  TO  140 

109  FCTR  =  0.99659  -  0.61056   /  VDM 
GO  TO  140 

110  CONTINUE 
GO  TO  140 

112  CONTINUE 

GO  TO  140 
114  CONTINUE 

140   IFIVDM   .LT.   8.0)   GO  TO  200 

c  ,.      .  . 

C  OBTAIN  CONVERSION  FACTORS   FOR   BOARD   FEET  SCRIBNER. 
C 

GO  TO   (150.155,160) ,  NSP 
150   IFIVDM   .GT.    11.9)   GO  TO  153 

PROD  =  0.87783  *  VDM  +  0.00660  *   BA  -  7.27957 
GO  TO  200 

153   PROD  =   5.10752   +  0.10712   *  VDM  ♦  0.00185  *  BA  -   36.20229   /  VDM 

GO  TO  200 
155   IFIVDM   .GT.    10.0)   GO  TO  158 

PROD   =   2.08874  ♦  0.18091   *  VDM  +   0.00045   *  BA 

GO  TO  200 

158   PROD  =   0.16583  +   3.74174   *  AL0G10IVDM) 

GO  TO  200 
160  CONTINUE 

GO  TO  200 
163  CONTINUE 
200  RETURN 

END 


Subroutine  CUTS 

SUBROUTINE  CUTS 

C 

C  TO  ESTIMATE    INCREASE    IN   AVERAGE   D.B.H.   DUE   TO  THINNING. 
§   STATEMENTS  FOR  DBHE    AND  PDBHE   ARE  SPECIES-SPECIFIC. 

C  CHANGE   STATEMENTS   FOR   DBHP   AND  SOFT    IF   OTHER   GROWING  STOCK   SYSTEM  IS 
C  USED . 

c 

COMMON   BATCHI3) .FLAG1 .FLAG2. I  GAME, 1TEST,  IYEAR 

COMMON  AGEO, AGMRCH, ANBOFI 181 ) , ANCUVI 1 8 1 ) , BFMRCH, BFPCT , BF SAL  V , CFPC T 
1 ,COMBF,COMCU,CYCL,CYCNW( 3 ) , DBHO , DENO , DE SC R I  5 ) , DL EV , G I OE , GNTR , 
2K0L (6) .NGAME.NKOLS.NOYRS.NSP, PR1BDI 150),PRICF(150),REGN(3),RINT, 
3SI TE , SPEC  I  5 ) ,SUMM(6,25, 10) ,THIN,VLLV( 31.EXTCU 

COMMON  BA, BAST, BDFCI 180) ,BDF0( 180 ), CFMCI 180) ,CFM0( 180) , CUFT, DBHT, 
1DI AMI  180 ) , FCTR.HITE, JCYCL.N AGO, PR FT, PROD, RES T,R OTA, STAND, VDM, 
2YSDMI180) 

COMMON  ACCST.ANUL,BFCST,CLOSS,CPLT,CSTAC,CSTVL,CTHN,CUCST,DEF0R, 
1FMRCHDI 10) , GMNAM I  3 ) , I  ACRE ( 180 ) , IALCUT, IPLNT, IVAR ( 26,  1501 , 
2 JVAR 1 15,150) .KOUNT, LAND, LAST, MALCUTI 10 ) , MOLD , NACOS I  180) , 
3NAC  UN  I  1 80 ) , NONSTK, PR  I DIVI 10),RATF,RETRN,VAR(14,150),YRL0S 

COMMON  AGE0SI1000I,AGEUN(1000),ANNET,CUTAGE,GSVALB,GSVALC,GVLBF, 
1GVLCU,ISUM|18), I YRM.KACR, LOSS , M I X , MTHN , N SUM  I 18),RETHV,RETTH,SCL0SS 
2, SCPLT,SCTHN,TCOST,TRET( 1000) , VBHV , VCHV , VLBF , VL CU 

c 

1F10BH0   .LT.   9.4)    GO  TO  70 

C 

C  COMPUTE  D.B.H.    IF   DBHO   IS   LARGE   ENOUGH  FOR   BASAL   AREA   TO  REMAIN 
C  CONSTANT. 

C 

PRET   =  100.0 
DO  60  KJ=1,100 
GO  TO    (1,10,20),  NSP 
1   I F ( PRET   .LT.   50.0)    GO  TO  5 

DBHE  =   0.73365   ♦   1.02008   *   DBHO  -   0.01107  *   ( PRET  -   50.0)   -  0.0001 
14  *   (PRET  -   50.0)   *    (PRET   -  50.0) 


00  TO  50 

5  P3SIIE   =  0.49401   +  0-71890   *   ALOGIO(DBHO)   -   0.22530  *   AL0G1 0 1  PRE  T) 
1   ♦   C. 12616  *   ALOGIO(OBHO)    *   ALOGIO 1 PRET ) 
DBHE   =   10.0  **  PDBHE 
GO  TO  50 
1G   I F I PRET   .LT.    50.0)    GP  TO  15 

DBHE   =   0.44222   +   1.03170   *   DBHO   -   0.00816   *    (PRET  -   50.0)    -  0.0000 
19  *    | PRE T  -  50.0)    *    ( PRET   -  50.0) 
GO  TO  50 

15   PDBHE   =   0.37321   -  0.17274   *   ALOGIO(PRET)    ♦   0.79921   *  ALOGIO(OBHO) 
1+  0.09315   *   ALOG 1 0 ( P RET )    *  AL0G10IDBH0) 

DBHE   =    10.0  **  PDBHE 

GO   TO  50 
20  CONTINUE 

50  TO  50 
25  CONTINUE 

50   I DBHE   =  DBHE      *   10.0   +  0.5 
DBHE   =    I DBHE 
DBHE   =   DBHE   *  0.1 
DENF   =   DEMO  *  PRET   *  0.01 
NDENE   =  DENE   +  0.5 
DENE   =  NDENE 

BASE   =   0.0054542   *   DBHE  *  DBHE   *  DENE 

NBASE   =   BASE  *   10. 0   +  0.5 

BASE  =  NBASE 

BASE   =   BASE   *  0.1 

TMPY   =   0.0054542   *   DBHE  *  DBHE 

TEM  =   BASE  -  REST 

IFIKJ   .EQ.    1    • AND.    TEM  .LT.    0.0)    GO  TO  220 

1 F (TEM  . LE.   TMPY )    GO  TO  180 

IFtTEM   .LT.   4.0)   GO   TO  55 

PRET   =   PRET  -  1.0 

GO  TO  60 
55   PRET  =   PRET  -  0.3 
60  CONTINUE 

GO  TO  180 

C 

C  COMPUTE   D.B.H.    IF   BASAL   AREA    INCREASES  WITH  D.B.H. 

C 

70   PRET   =  40.0 

I F (DBHO   .GT.    7.01    PRET   =  70.0 

00  175  J=1.100 

GO  TO    175,85,951 ,  NSP 
75   I F I PRET    . GE .    50.0)   GO  TO  80 

PDBHE   =  0.49401   *   0.71890   *   AL0G10 I DBHO )   -  0.22530  *   AL0G1 01 PRET) 
1   t   0.12616   *   ALOGIO ( DBHO )    *  ALOGIO(PRET) 

DBHE   =   10.0   **  PDBHE 

GO  TO  145 

80  DBHE   =   0.73365  +   1.02008   *   DBHO  -  0.01107  *    (PRET  -   50.0)    -  0.0001 
14   *    ( PRET   -   50.01    *    (PRET   -  50.0) 
GO  TO  145 
85    I F  ( PRE  T    .GE.    50.0)    GO   TO  90 

PDBHE   =  0.37321    -  0.17274   *   AL0G10I PRET )    t  0.79921   *   ALOG 1 0 1 DBHO ) 
1+   0.09315   *   ALOGIO ( PRET )    *   ALOGIO ( DBHO ) 
DBHE   =   10.0  *«  PDBHE 
GO  TD  145 

90  DBHE   =   0.44222   +   1.03170   *  DBHO  -  0.00816  *    (PRET   -   50.0)    -  0.0000 
19   *    (PRET   -  50.0)    *   (PRET   -  50.0) 

GO  TO  145 
95  CONTINUE 
GO  TO  145 
100  CONTINUE 

145    I DBHE  =  DBHE   *   10.0  *  0.5 
DBHE  =   I DBHE 
DBHE   =   DBHE  *  0.1 
DENE   =  DENO  *   (PRET   *  0.01) 
NDENE  =  DENE  +  0.5 
DENE   =  NDENE 

BASE   =   0.0054542   *  DBHE  *   DBHE  *  DENE 

NBASE  -   BASE   *   10.0  +  0.5 

EASE   =  NBASE 

BASE  =   BASE  *  0.1 

BREAK  =  49.9   *  REST   /  GIDE 

I F ( BASE   .GT.    BREAK)   GO  TO  150 

DBHP   =    IGIDE   /   REST)    *    (0.08682   *   BASE)   +  0.94636 
GO  TO  160 
150  BUST  =  66.2   *    (REST   /  GIDE) 
IF ( BASE   .GT.    BUST)    GO  TO  155 

DBHP   =    (GIDE    /   REST)    *   (0.10938   *   BASE)   -  0.17853 
GO  TO  160 
155   TMPY  =   BASE  *    IGIDE   /  REST) 
TEM  =   TMPY   *  TMPY 

DBHP   =   19.04740   *   TMPY  -   0.26673   *   TEM   +  0.0012539   *   TEM  *  TMPY 
1   -  448.76833 

IFITMPY   .GT.   GIDE)    DBHP   =•  DBHO   ♦  0.8 
160   I DBHP  =   DBHP   *   10.0   f  0.5 

DBHP  =   I DBHP 

DBHP   =   DBHP  *  0.1 

I F I DBHP  -   DBHE)  165,180,170 
165   PRET   =   PRET   *  1.02 

I F ( PRET   .GT.    100.0)    GO  TO  220 

GO  TO  175 
170   PRET   =   PRET   *  0.98 
175  CONTINUE 
180  DBHT  =  DBHE 

C 

C  COMPUTE    POST-THINNING  BASAL  AREA. 
C 

I F I DBHT    .GT.    5.0)    GO  TO  200 
SOFT   =   11.58495   »  ORHT   -  11.09724 
GO  TO  205 
200   I F I DBHT   .GE.    10.0)    GO  TO  210 
TEM   =   DBHT   *  OBHT 

SOFT  =   7.76226   *  DBHT   +0.85289   *   TEM  -0.07952  *   TEM   *   DBHT-3. 45624 
205   BAST   =    (REST   /   GIDE)    *  SOFT 
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GO  TO  215 
210  BAST  =  REST 
215  RETURN 
220  PRET   =  100.0 

RETURN 

END 


Subroutine  ANVOL 


SUBROUTINE  ANVOL 
TO  COMPUTE   VOLUMES  FOR   EACH  YEAR  OF   STAND  AGE. 

CONTAINS  NO   STATEMENTS   TO  BE   MODIFIED  TO   ADAPT  TO  OTHER  SPECIES. 
COMMON  BATCH! 3) , FL AG1 , FL AG2,  I  GAME.  I  TEST, I  YEAR 

COMMON   AGEO, AGMRCH, ANBDF ( 181),ANCUV(181),BFMRCH.BFPCT,BFSALV.CFPCT 
1 ,COMBF .COMCU.CYCL .CYCNWI 3 ) , OBHO , DENO, DESCR ( 5 ) , DL EV , Gl DE , GNTR , 
2K0L (6)  ,NGAME , NKOLS , NOYRS , NS P , PR  I BD (  1 50 ) , PR IC F ( 1 50 ) , R EGN ( 3 ) , R I  NT , 
3SITE.SPEC (5 ) .SUMM(6,25, 1 0 ) , TH IN, VLL V ( 3) .EXTCU 

COMMON  BA,BAST,BOFC( 180) ,BDFO( 1 80 ) , CFMC ( 1 80 ) ,CFMOI 1 80 ) , CUFT , DBHT  , 
ID  I  AMI  180) , FCTR.HITE, JCYCL.NAGO, PRET, PROD, REST, ROT A, STAND, VDM, 
2YSDMI180) 

COMMON   ACCST, ANUL, BFCST , CLOSS , CPL T , C STAC , C STVL , C THN , C UC ST , DEF OR , 
1FMRCHDI 10  I ,GMNAM( 3) , I  ACRE ( 180) , I ALCUT, I PLNT , I VAR ( 26, 1 50 1  , 
2JVARI15.150) ,KOUNT, LAND, LAST, MA L CUT ( 10 ) , MOL D, N ACOS ( 180 ) , 
3NACUNI180) .NONSTK, PRl 01 V( 10) , R AT E , RETRN, V AR ( 14, 1 50 ) , YRLOS 

COMMON   AGE  OS (1000 ), AGEUNI 10 00) , ANNET, CUT AGE , GSVAL B , GS VALC .GVLBF , 
1GVLCU, I  SUM ( 1 8 ) , IYRM,KACR, LOSS, MIX ,MTHN,NSUM( 1 8 ) , RE  THY , RETTH , SCLOS S 
2,SCPLT,SCTHN,TC0ST,TRET( 1000) , VBHV , VCHV , VL BF , VLCU 

IROT   =  ROTA 
I  NT  =   R I  NT 

NVOL   =    ((IROT  -  NAGO)    /    INT)    +  1 
K   =   NVOL   -  1 

INTERPOLATE   BFTWEEN  VOLUMES    IN  YIELD  TABLE. 


KK  =  K  +  1 

DO  80  I=KK,INT 

AKTR  =   AKTR  +  1.0 

DIAM(I)    =  DBHO  +  TMPY  *  AKTR 
80  CONTINUE 

K  =  INT 
85  CONTINUE 

87  I F ( REGN ( 2 )    .GT.   0.0)   GO  TO  90 
NIC  =  REGN ( 1 )   ♦  1.0 

KU  =  REGN ( 1 ) 

DO   88  I=NIC,IROT 

DIAMII)    =  DIAM(KU) 

88  CONTINUE 

PROVIDE   FOR  ANY  ACRES   BEYOND  OUTAGE  LEFT  UNTHINNED  A  FEW  YEARS. 

90   JCYCL  =  CYLL 

IMI   =   JCYCL  -  1 

DO  95   I=NAGO, IROT, JCYCL 

DO  95  J=1,IMI 

NX  =   I    +  J 

IFINX   .GE.   180)   GO  TO  100 
BDFCI NX)    =  BDFCI I ) 
95  CFMCINX)    =  CFMC(I) 
100  RETURN 
END 


Subroutine  BASIS2 


DO   1  L=1,K 
DO   1  J=1,INT 

NN  =   J   ♦   NAGO  ♦    (L   -   1)    *   I  NT 
R  J  =   J  -  1 

N  =   NAGO  +    (L  -   1)   *  INT 

ANCUV (NN)   =CFM0(N)-CFMC(N)*(RJ/RINT)*(CFM0(N+1NT)-CFM0(N)+CFMX(N) ) 
ANBDF ( NN)    =BDFO(N)-BDFC(N)  +  (RJ/RINT)*( BDFO I N  + INT ) -BOFO ( N ) +8DFC IN  I  ) 
1  CONTINUE 

WRITE    TABLE   HEADINGS  FOR   PAGE  TYPE  2. 

WRITE  (6,5) 

5   FORMAT    (1H1,//,61X,11HPAGE   TYPE   2)  C 
WRITE    (6,10)    SPEC, SITE, CYCL, THIN, DLEV  C 
10  FORMAT    ( 1H0.40X .25HGR0WING  STOCK  OF  MANAGED  ,5A8/IH   , 46X , 1 OHS I TE    I  C 
INDEX, F5.0,1H,,F5.0,19H-Y EAR  CUTTING  CYCLE/1H   , 52X , 14HDEN S I TY  LEVEL 
2-,F5.0,lX,3HAND,F5.0) 
WRITE  16,15) 

15  FORMAT    (1HO,43X,44HVOLUMES   PRESENT   PER  ACRE  AT   END  OF   EACH  YEAR) 
WRITE  (6,20) 

20  FORMAT  (  1H  »  54X,  23  HMER  CHANT  ABLE  CUBIC  FEE  T/  1H0,  64X  ,  4HYE  AR  /  1H  ,14X, 
16HDECA0E ,9X, 1H0.9X, 1H1 ,9X, 1H2.9X ,1H3,9X,1H4,9X,1H5,9X,1H6.9X,1H7,9 
2X,1H8,9X,1H9,//) 

K   =  0 

WRITF   CUBIC   FEET   PER  ACRE   FOR   EACH  YEAR  ON  PAGE  TYPE  2. 

WRITE    (6, 40)  K,(ANCUV(NN),NN=1,10) 
40   FORMAT    (1H   , I20,F13.1,9F10.1 ) 
IJ   =    (ROTA  *   0.1   +   0.5)   -  1.0 
DO  45  J=1,IJ 
NN  =   10  *   J  +  1 

WRITE    (5,40  I    J, ANCUV I NN) , ANCUVI NN+1 ) , ANCUV I NN+2 ) , ANC UV I NN+3 )  , ANCUV 
1  (NN«-4  )  ,  ANCUV  I  NN+5)  ,  ANCUVI  NN+6  I  ,  ANCUV  (  NN+ 7  )  ,  ANCUV  I  NN+S  )  ,  ANCUVI  NN  +  9) 
45  CONTINUE 

J   =   ROTA  *  0.1   +  0.5 
ANCUVI I ROT+ 1 )    =  CFMOIIROT) 
WRITE    (6,40)    J, ANCUVI IROT+1 ) 

WRITE   BOARD  FEET   PER   ACRE   FOR   EACH  YEAR  ON  PAGE   TYPE  2. 

WRITE  (6,60)  C 
60  FORMAT    ( 1H0 , /// , 55 X , 2 3HTH0US ANOS   OF   BOARD  FEET,//)  C 

WRITE  (6,65)  K , ( ANBDF ( NN ),NN=1, 10)  C 
65   FORMAT    I  1H  , I  20 , F 13 . 3 , 9F 10 . 3 ) 

DO   70   J=  1  .  I  J 

NN=10»J+1 

WRITE    (6,651    J, ANBDF I NN) , ANBDFI NN+1 ), ANBDF INN+2 ) .ANBDF (NN+3 ) .ANBDF  C 
1 (NN+4) , ANBDF ( NN+5 ) , ANBDF I NN+6 ) , ANBDF I NN+7 I , ANBDF I NN+ 8 ) , ANBDF I NN+9 )  C 
70  CONTINUE  C 
J   =   ROTA   *  0.1   +  0.5 
ANPDFI IROT+1)    =  BOFOIIROT) 
WRITE    (6,65)    J, ANBDF! IROT+l) 

INTERPOLATE  BETWEEN  COMPUTED  DIAM(N)    FOR  USE   BY  OTHER   ROUTINES.  C 

C 

K  =  NAGO  C 

00  85  J=1,NV0L  C 
TEM  =  K 

1  NT  =   TEM   +  R I  NT 
TEM   =    I  NT 

IFITEM   .GT.   ROTA)    GO  TO  67 

DBHO  =  YSDMIK)  C 
1FIDIAMIK)  .GT.  YSDMIK))  DBHO  =  DIAMIK)  C 
TMPY  =  I  D  I  AM  I  1  NT  )  -  DBHO)  /  R  I  NT  C 
AKTR   =  0.0 


SUBROUTINE  BASIS2 
TO  FJMTER  OR  COMPUTE  VALUES  USED  FOR  A  SINGLE  GAME  • 

CONTAINS  NO  STATEMENTS  TO  BE  MODIFIED   TO  ADAPT  TO  OTHER  SPECIES. 

COMMON  BATCH  I  3  > , FLAGl , FLAG2 , IGAME, ITEST, IYEAR 

COMMON  AGEO, AGMRCH, ANBDF ( 181 ), ANCUVI 18 1  I , BFMRCH, BFPC T ,BF SAL V.CFPC 
1 .COMBF, COMCU.CYCL, CYCNWI 3 ) , DBHO, DENO, DESCR I  5 ) , OLE V.G I DE , GNTR , 
2K0LI6) , NGAME, NKOLS, NOYRS, NSP.PRIBD 1 150), PR ICFI 150) , REGN ( 3 ) , RINT, 
3SITE .SPEC (5) ,SUMM(6,25,10) .THIN.VLLVI 3), EXTCU 

COMMON  B A, BAST, BDFCI 180) ,BDFOI 180), CFMC I  180) ,CFMO( 180) , CUFT, DBHT 
101  AMI  180) .FCTR.HITE, JCYCL, NAGO, PRET, PR 00, RE  ST, ROTA, STAND, VDM, 
2YSDMI 180) 

COMMON  ACCST, ANUL, BFC ST, CLOS S , CPLT , CST AC, CS TVL . CTHN, CUCST , DEFOR , 
1FMRCHDI10 ) .GMNAM13 ) , I  ACRE! 180 ), I ALCUT,  I  PL NT, I VAR ( 26,150) , 
2  J VAR (15,150) , KOUNT .LAND, LAST, MALCUTI 10 ) , MOL D, NACOS ( 180), 
3NACUN I  180) ,NONSTK,PRIDIV( 10) , RATE, RETRN, VAR( 14, 150) , YRLOS 

COMMON  AGE OS ( 1000 ), AGEUNI 1000) , ANNET , CUT AGE, GSVAL 8 • GS VALC .GVLBF , 
1GVLCU, I  SUM  I  18) , IYRM,KACR,LOSS,MIX,MTHN,NSUM( 1 8 ), RETHV , RETTH, SCLOS 
2 , SCPLT, SCTHN.TCOST, TRETI 1 000 ), VBHV , VCHV, VLBF , VLCU 

SET   INITIAL  VALUES   OF  ZERO. 

CSTAC   =  0.0 

CSTVL   =  0.0 

IJLCUT  =  0 

KOUNT   =  I 

LAST  =  0 

MIX   =  0 

RETRN  =  0.0 

YRLOS   =  0.0 

DO   1  1=1,180 

I  ACRE  I  I  )    =  0 

NAC0S1I)   =  0 
1  NACUNf 11=0 

DO   5  1=1,10 

F MRCHD I  I )    =  0.0 

MALCUTI  I  )    =  0 
5   PRIDIVI I  I  =0.0 

00   10  1=1,15 

DO  10  J=l,150 

JVARII.J)    =  0 
10  CONTINUE 

DO   15  1=1,26 

00  15  J=l,150 
15   IVARII.J)    =  0 

DO  20   1=1 , 14 
DO  20  J=l,150 
20   VARII.J)    =  0.0 

READ  VALUES   THAT   DO  NOT  CHANGE   OURING   A  GAME.    FROM  CARD  TYPE  9. 

RE AD  1 5, 25) (GMNAMI I ) , 1=1.3). LAND.MOLD.NONSTK.K AREA, I PLNT , DEFOR ,ANUI 

25   FORMAT   I  3 A3, 5  1 4, 2F8 . 5 ) 

I F I KARE A   . EQ .   0)   GO  TO  35 

ENTER   EQUAL   AREA  FOR  EACH  OVERSTORY   AGE  CLASS,    IF  DESIRED. 

MDX  =   CYCNWfl)    +  CYCNWI2)    +  1.0 
NDX   =   MOLD  +  1 
DO   30  I=MDX,NDX 
30   I  ACRE ( I )    =  KAREA 

ADJUST  NUMBER  OF   ACRES   IN  OLDEST   CLASS    IF   TOTAL   AREA  NOT  MULTIPLE 
OF  KAREA. 

KOIFF   =   LAND   -   ( NDX  -   MDX   +   1)   *  KAREA  -  NONSTK 

1  ACRE  I NDX )    =    IACRFINOX)    +  KDIFF 
IACREI1)    =    I  ACRE ( 1 )    +  NONSTK 
GO  TO  45 

READ  UNEQUAL   AREAS   FROM  CARD  TYPE   10,    IF  DESIRED. 
35   READ   (5,40)    ( I  ACRE ( I ) , I  =  1 , 1 80 ) 
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AO  FORMAT    ( 1814) 

READ  COSTS   ANO  LIMITATIONS   ON  CUT   FROM  CARD  TYPES   11   TO  14. 

45  READ   (5t50)  (  PR  I  01  V  (  I  )  .  I  =  1 ,  10  ) 
50  FORMAT  (10F8.3) 

READ   (5.40)  ( MALCUT ( I ) . 1=1. 10 ) 

RFAO   (5,50)  ( FMRCHDl I ) . 1=1. 10) 

READ    (5,50)  RATE,CPLT,CTHN,CLOSS,ACCST,CUCST,BFCST 

RETURN 

END 


iubroutine  CHEK2 

SUBROUTINE  CHEK2 
TO  CHECK   VALUES   ENTERED  BY  BASIS2. 

CONTAINS   NO  STATEMENTS   TO  BE   MODIFIED  TO   AOAPT  TO  OTHER  SPECIES. 
COMMON  BATCH! 3) ,FL AG 1.FLAG2, IGAME. ITEST.IYEAR 

COMMON   AGEO, AGMRCH, ANBDF (181),ANCUV(181),BFMRCH,BFPCT,BFSALV,CFPCT 
1 ,COMBF,C0MCU, CYCL, CYCNWI 3  I, DBHO, DENO, DESCR [ 5 ) , DLEV, GIDE ,GNTR , 
2K0L 16) ,NGAME,NKOLS,NOYRS,NSP,PRIBO( 150 ) , PR ICF ( 150 ) , REGN ( 3 ) , RI NT , 
3SITE,SPEC(5I, SUMM(6,25,10) , TH1 N , VLLV ( 3 ) , EXTCU 

COMMON   BA,BAST,BDFC( 180) , BDFO ( 1 80  I , CFMC ( 180 ) ,CFMO(  1 80 ) , CUFT , DBHT , 
ID  I  AMI  180)  , FCTR.HITE, JCYCL ,N AGO, PR ET, PROD, RE  ST, ROTA, STAND, VDM, 
2YSDMU80) 

COMMON  ACCST, ANUL, BFCST,CL0SS,CPLT.CSTAC,CSTVL.CTHN,CUCST,0EFOR, 
lFMRCHD(lO) .GMNAMI3) , I  ACRE ( 180) , I ALCUT, I PLNT , I V AR ( 2 6, 1 50 ) , 
2JVAR(15,150)  ,KOUNT, LAND, LAST, MALCUT ( 10  I , MOL D, NACOS (  180), 
3NACUNI180) .NONSTK, PRIOIVI 10) , RATE, RETRN , VAR ( 14, 150) ,YRLOS 

COMMON   AGEOSI 1000) »  AGEUN (  1000) , ANNET , CUT AGE , GSV AL 8 , GSV ALC ,GVLBF , 
lGVLCU.ISUMUBI  y I  YRHf  KACRt LOSS  t HI X , MTHNt NSUM )  1 8  )  ,  RETHV ,  RETTH,  SCLOS S 
2 ,SCPLT,SCTHN,TCnST,TRET( 1000 ), VBHV , VC HV , VLBF , VLCU 


100  CU.   FT.   HARVESTED, F9. 2) 
WRITE    (6,65)    AGMRCH, BFCST 
65   FORMAT    (1H   ,4X,22HAGE,    FOR   GROWING   STOCK , 1 1 X , F4 . 0 , 28 X , 1 3HPER   M  BD. 
1    FT. ,12X,F9.2) 
WRITE    16,70)    BFMRCH, CTHN 
70  FORMAT    (1H   ,4X,28HM  BD.   FT.,    FOR   GROWING   STOCK , 5X , F 5 . 1 , 27X , 1 3HTHI N 
1  ONE  ACRE.12X.F9.2) 
WRITE    (6,75)  COMCU.CPLT 
75   FORMAT    ( 1H   ,4X,27HCU.    FT.,   FOR  COMMERCIAL  CUT , 5X , F5 . 0 , 28X , 14HPL ANT 
1   ONE   ACRE,11X,F9.2 ) 
WRITE    (6,80)  COMBF.CLOSS 
80  FORMAT    ( 1H   ,4X,29HM  BD.    FT.,    FOR   COMMERCIAL   CUT , 4X , F 5 . 1 , 27X , 1 9HCL E 
1ANUP  OF  ONE  ACRE,6X,F9.2) 
WRITE    (6,85)  BFSALV.RATE 
35   FORMAT    (1H   ,4X,22HM  BO.    FT.,    FOR   S ALV AGE , 1 IX , F 5 . 1 , 23X , 2 5HRA TE   OF  I 
INCREASE    IN  COSTS , 4X , F9 . 2 ) 
WRITE    (6,88)  EXTCU 
88  FORMAT    (1H   ,4X,22HCU.    FT.    IN  SAW  LOG  CUT , 10X , F5 .0 , // ) 

WRITE    (6,90)  IPLNT 
90  FORMAT    ( 1H   , 22HACRES   PLANTED  ANNUALL Y , 14X , ! 4, 25X , 3 5HREL AT  I VE  VALUE 
1   OF    INTERMEDIATE  CUTS) 
WRITE    (6,95)  DEFORl.CFPCT 
95   FORMAT    (1H   , 30HPERCENT   OF   ACRES  LOST  ANNUALL Y , 6X , F 8 . 3 , 2 5X , 23HSTUMP 
1  AGE   PRICE,   CU.  FT..2X.F9.2) 
WRITE    (6,100)  BFPCT 
100  FORMAT   (1H   ,69X , 23HSTUMPAGE   PRICE,    BD.  FT.,2X,F9.2) 

WRITE    (6,105)  ANUL 
105  FORMAT    (1H   , 29HPSEUD0RAND0M  NUMBER  GENERATOR, 5X , F8 . 1 ) 

WRITE    (6,110)  GNTR 
110  FORMAT   (1H  ,34X,F8.1) 
RETURN 
END 


Subroutine  AREAS 


FLAGl   =  0.0 
FLAG2  =  0.0 
I F ( LAND  .LT. 
I F (LAND 
IFIMOLO 
I F ( MOLD 
IFIACCST  .LE. 
IFIBFCST  .LE. 
I F ( C  THN  .LE. 
IFICUCST  .LE, 
I F ( F  MRCHD ( 1 ) 
IF(MALCUTd) 
IF(PRIDIVIl) 
RETURN 
END 


.  GT. 
.LT. 
.GT. 


1)   FLAGl   =  1.0 
1000)   FLAGl   =  1.0 
1)   FLAGl   =  1.0 
179)    FLAGl   =  1.0 
0.0)   FLAG2   =  1.0 
0.0)   FLAG2   =  i.O 
0.0)    FLAG2  =  1.0 

0.0)  FLAG2  =  1.0 
•LE.  0.0)  FLAG2  = 
.LE.  0)  FLAG2  =  1. 
•LE.   0.0)    FLAG2  = 


Subroutine  START 

SUBROUTINE  START 


SUBROUTINE  AREAS 

TO  CREATE  AND  CHECK  ARRAY  OF  ACRES  BY  STAND  AGE  AND  TO  COMPUTE  VOLUME 
AND  VALUE  OF    INITIAL   GROWING  STOCK. 

CONTAINS  NO   STATEMENTS   TO   BE   MODIFIED  TO   ADAPT   TO  OTHER  SPECIES. 
COMMON   B AT CH(3), FLAGl, FLAG2,  IGAME , I TE ST, I  YE AR 

COMMON  AGEO, AGMRCH, AN BDF (1811, ANCUVI 181 ) , BFMRCH, BFPCT, BFSALV,CFPCT 
1 ,COMBF ,COMCU,CYCL,CYCNW ( 3 ) , DBHO, DENO , DESCR ( 5 ) , DLEV, GIDE, GNTR, 
2K0L (6) , NGAME ,NK0LS,N0YRS,NSP,PRIBO( 1 50 ) , PR ICF ( 1 50 ) , REGN ( 3 ) , R I  NT , 
3SITE,SPEC(5),SUMM(6,25,10),THIN,VLLV(3),EXTCU 

COMMON   BA, BAST, BDFC(180),BDF0(180), CFMC (180), CFMOI 180), CUFT, DBHT, 
101  AMI  180) .FCTR.HITE, JCYCL, NAGO,PRET, PROD, REST, ROT A, STAND, VDM, 
2YSDMI180) 

COMMON   ACCST, ANUL, BFCST, CLOSS.CPLT.C STAC, C STVL , CTHN ,C UCST ,DEF OR, 
1 FMRCHDl 10) ,G MNAM ( 3 ) , I  ACRE (180) , I ALCUT, I PLNT , IV AR ( 26,  1 50 ) , 
2 JVAR 115,150) ,KOUNT, LAND, LAST, MALCUT ( 10 ) , MOLD, NACOS ( 180), 
3NACUNI180) .NONSTK, PR  I DIVI  10 ) , R AT E , R E TRN , VAR 1 )4, 1 50 ) , YP LOS 

COMMON   AGEOSI 1000) , AGEUN ( 1000 ), ANNE T, CUTAGE , GSVALB , GSV ALC , GVLBF , 
1GVLCU, I  SUM! 18) ,1 YRM,KACR,LOSS,MIX,MTHN,NSUMI 1 8 ), RFTHV , RETTH, SCLOS S 
2, SCPLT.SCTHN.TCOST, TRET (1000  I, VBHV, VCHV, VLBF, VLCU 


TO  PRINT  CONDITIONS   OF   SIMULATIONS   ON   PAGE  TYPF  3. 

CONTAINS   NO  STATEMENTS  TO   BE  MODIFIED  TO  AOAPT   TO  OTHER  SPECIES. 
COMMON  BATCH ( 3 ) , FL AG  1 , FL AG2 , IGAME, I  TEST, I  YEAR 

COMMON  AGEO, AGMRCH , AN BDF ( 181 ), ANCUVI  18 1 ), BFMRCH, BFPC T , BF SAL V , CF PC  T 
1 , COMBF ,COMCU , CYCL , CYCNW ( 3  I , DBHO, DENO, DESCR (5), DLEV, GIDE, GNTR, 
2K0L(6),NGAME,NK0LS,N0YRS,NSP,PRIBD(150),PRICF(150),RF.GN(3),RINT, 
3SITE ,SPEC (5) , SUMM( 6,25,10) , THIN, VLLV ( 3) .EXTCU 

COMMON  BA,BAST,BDFC(180) , BDFO ( 180 ) ,CFMC( 180) , CFMOI 1 80 ), CUFT , DBHT , 
ID  I  AMI  180) .FCTR.HITE, J CYCL, N AGO, P RET, PROD, RE  ST, ROTA, STAND, VDM, 
2YSDMI1R0I 

COMMON   ACCST, ANUL, BFC ST, CLOSS.CPLT.CST AC, CSTVL, CTHN, CUCS T.DEFOR, 
1FMRCHD(10),GMNAM(3),IACRE(180),IALCUT,IPLNT,1VAR(26,150), 
2  J VAR ( 15,150) .KOUNT, LAND, LAST, MALCUT! 10 ), MOLD, NACOS ( 1 80 ) , 
3N ACUNI180), NONSTK, PR IDIV(IO), RATE, RE TRN, VAR (14, 150). YR LOS 

COMMON  AGE OS ( 1000) , AGEUN ( 1 000  > , ANNET , CUT AGE , GSVAL B , GSVALC , GVL BF , 
1GVLCU,ISUM(18) , IYRH.KACR, LOSS, MIX, HTHN,NSUM( 1 8 ) , R E THV , RE TTH , SCLOS S 
2, SCPLT.SCTHN.TCOST, TRET! 1 000 ), VBHV , VCHV , VLBF , VLCU 

DEF0R1   =   DEFOR  *  100.0 
WRITE  (6,5) 

5   FORMAT    ( 1H1,//,54X , 11HPAGE   TYPE   3/lH0,45X,26HALTER NATIVES  FOR  THIS 
1  CAME) 

WRITE    (6,10)    (BATCH(I), 1=1,3) 
10  FORMAT    (1H    ,45X,7HBATCH  ,3A8) 

WRITE    (6,15)  ITEST 
15  FORMAT    (1H   , 45X , 4HTEST , 1 4 ) 

WRITE  (6,20)  (GMNAMI I ) , 1=1,3) 
20  FORMAT    (1H   .45X.6HGAME  ,3A3) 

WRITE    16,25)  (DESCR(I),I=1,5) 
25  FORMAT    (1H   ,45X, 5A8 ,//// ) 

WRITE    (6,30)  NOYRS 
30  FORMAT    (1H   , 45X , 24HNUMBER  OF  YEARS   PER   GAME, 14, //// ) 

WRITE    (6,35)    ( PRI DIV ( I ) , 1=1, 10) 
35   FORMAT    ( 1H   , 15HCRITICAL  PRICES, 12X,10F9. 2) 

WRITE    (6,40)    (MALCUT! I ), 1=1,10) 
40  FORMAT    (1H   , 13HALLUWABLE  CUT , 1 IX , 101 9 ) 

WRITE    (6,45)    ( FMRCHDl I ), 1=1, 10) 
45   FURM4T    I1H    , 1 9HM I N I  MUM  CUTTING   AGE , 6 X , 1 OF 9 . 0 , / / / / ) 

WRITE    (6,50)  LANO 

50  FORMAT    (IH   , 2  3HACRES    IN  WORKING  CIRCLE, 13X,  14, 25X,27HC0STS   IN  FIRS 
IT  YEAR   OF  GAME) 

WRITE    (6,55)  ACCST 
55  FORMAT    (111   ,69X,17HPER   ACRE   ( ANNUAL), 8X,F9. 2) 

WRITE    (6,601  CUCST 
60  FORMAT    (1H   , 3SHMINI MUM  VALUES   FOR    INCLUSION    IN  TOTALS, 31X,25HPER  1 


GSVALB  =  0.0 
GSVALC   =  0.0 
GVLBF  =  0.0 
GVLCU  =  0.0 
DO  5  1=1,18 
I  SUM! I)   =  0 
5  NSUM I  I )    =  0 
DO   10  1=1,1000 
AGEOSI I )   =  0.0 
AGEUN I  I )    =  0.0 
TRET(I)    =  0.0 
10  CONTINUE 

CONVERT  OVERSTGRY  ACRES   IN  EACH   IACRE(I)    TO   INDIVIDUAL  ACRES. 
ASSIGN  UNDERSTORY   ACRES    IF  USING  SEED  TREES   OR  SHELTERWOOO. 

JK  =  0 

DO  20  J=l,180 

1FIJK   .GE.    LAND)    GO  TO  25 

IF(IACREIJ)    .LE.   0)   GO  TO  20 

Kl.  =   JK   +  1 

JK  =   JK  +  IACRE(J) 

DO  15  I=KL,JK 

NAC  =  LAND  +1-1 

AGEOSINAC)   =   J  -  1 

I F ( REGN ( 2 )   .EQ.  0.0)   GO  TO  15 

IF(AGEOSINAC)    .LE.   REGN(l))   GO  TO  15 

AGEUN ( NAC )    =   AGEOSINAC)   -  REGN(l) 
15  CONTINUE 
20  CONTINUE 

ASSIGN  TREATMENT   STATUS  CODE   IF   SEED  TREES  OR   SHELTERWOOO  USED. 


25  I F ( REGN ( 2 )  .EQ. 
TEM  =  REGN(l)  - 
DO  30  1=1, LAND 
I F ( AGEOS ( I )  .LE, 
LAST  =  LAST  +  1 
IFIAGEOS(I)  .LT, 
TRET ( I )   =  AGEOSI 

30  CONTINUE 


0.0)  GO  TO  35 
1.0 


TEM)    GO  TO  30 


REGN I  1 ))  GO  TO  30 
I )   -  REGN ( 1 )   +  1.0 


GET  DISTRIBUTION  OF  ACRES  BY  AGE.  CHECK  THAT  NO  ACRE  IS  OLDER  THAN 
179  YEARS  UNLESS   APPROPRIATE   DIMENSIONS   ARE  CHANGED. 


35  DO   50  K=l .LAND 
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IFIAGEOSIKI    .LE.    179.0)    GO  TO  40 

F  L  AG  1   =  2.0 

RETURN 
40  LM  =   AGEOS(K)    +  1.0 

NACOSILM)    =   NACOSILM)    +  1 

"L  =   AGEUN I K )    +  1.0 

NACUN I  ML )    =  NACUNIML)    *  1 
50  CONTINUE 

COMPUTE   TOTAL   ACRES   BY    10-YEAR   AGE  CLASSES. 

DO  60  1=1,18 
00  60  J=l,10 
NS=10*(I-1)+J 
ISUMII)    =    ISUM(I)    +  NACOS(NS) 
NSUM(I)    =   NSUM(I)    *  NACUN(NS) 
60  CONTINUE 

COMPUTE  VOLUME  OF  GROWING  STOCK.  USE  CU.  FT.  IF  VOLUME  IS  LESS 
THAN  BFMRCH. 

DO   100  MM, LAND 

I F ( REGN ( 2 )    . E Q.    0.0)    GO  TO  80 
ADD  VOLUME   OF   UNDERSTORY    IF   SYSTEM   IS   SEED  TREE  OR  SHELTERWOOD. 


I F ( AGEUN  i  M I 
IL   =    AGEUN ( M ) 
IFIANBOFI ILI 
GVLCU  =  GVLCU 
GO   TO  80 
70  GVLBF   =  GVLBF 


LT.  AGMRCH)  GO  TO  80 
+  1.0 

.GE.   BFMRCH)    GO  TO  70 
ANCUVI IL) 


+   ANBDF ( IL ) 


ADD  [N  VOLUME  OF  MAIN  STAND. 
SHELTERWOOD. 


IS   OVERSTORY    IF   SYSTEM    IS   SEED   TREE  OR 


35  FORMAT    (1H   ,45X,7HBATCH  ,3A8) 

WRITE    (6,40)  ITEST 
40  FORMAT    (1H   , 45X ,4HTEST , I  4 ) 

WRITE  (6,45)  ( GMNAM ( I), 1=1, 3) 
45   FORMAT    ( 1H   ,45X,6HGAME  ,3A8) 

WRITE    (6,50)  (DESCR(I),I=1,5) 
50  FORMAT    (1H  ,45X,5A8) 

WRITE    (6,55)  IYEAR 
55  FORMAT    (1H   ,45X,16HYEAR  WITHIN  GAME, 14,//) 

WRITE  (6,60) 
60  FORMAT    (1H  , 55X , PHAGE ( YE AR I ) 

WRITE  (6,70) 

70  FORMAT    (1H   , 4X , 1 1 H AGF ( DEC ADE I , 8X , 1  HO, 7X , 1H1 , 7X, 1H2 , 7X , 1H3.7X, 1H4 
1X,1H5,7X,1H6,7X, 1H7.7X, 1H8.7X, 1H9 , 10X , 5HT0TAL , // ) 

WRITE   NUMBER  OF   ACRES   IN  EACH   1-YEAR   AGE  CLASS   AND  THE   TOTALS  OF 
10-YEAR  CLASSES  ON  PAGE  TYPE  4. 

DO   100  J=1,1B 

IK   =   J  -  1 

NN   =    10   •   IK   *  I 

IFIKU   .EO.   2)    GO   TO  9u 

WRI TE    (6,80)    IKiNACOS(NN) ,NACOS( NN+1 ) , NACOS (NN+2), NACOSI NN+3 I ,NA 
IS ( NN+4) , NACOS I NN  +  5 ) , NACOS ( NN  +  6 ) , NACOS ( NN+7 ) , NACO S ( NN+ 8 ) ,NACOS(NN 
2 ) , I  SUM ( J ) 
80  FORMAT    ( 1H   , 111, 5X, 10 18, 115,/) 

GO  TO  100 

90  WRITE    (6,80)    I K  ,  NACUN  I  NN  )  ,  NACUN  I  NN  +  1  )  ,  NACUN  I  NN  +  2  )  ,  NACUN  I  NN+ 3 )  ,  NA' 
1NINN+4) , NACUNI NN+5 ) .NACUNINN+6 ) , NACUN I NN+7 ) , NACUN I NNt 8 ) , NACUN ( NN 
2) , NSUM ( J ) 
100  CONTINUE 
120  CONTINUE 
RETURN 
END 


80   IF(AGEOSIM)    .LT.    AGMRCH )    GO   TO  100 
I  AG   =   AGEUS(M)   +  1.0 

I F ( ANBDF ( I  AG)    .GE.    BFMRCH)    GO  TO  90 
GVLCU   =   GVLCU   +   ANCUVI  I  AG ) 
GO  TO  100 
90  GVLBF   =   GVLBF   +   ANBDF ( I  AG ) 

100  CONTINUE 

COMPUTI-    INITIAL   NON-ZERO  VALUES    FOR  K6PRT2. 

IVAR (7,1)    =  GVLCU  ♦  0.5 

IVAR(0,1)    =   GVLBF   +  0.5 

IVAR(9,1)    =    IVARI5.1)    +  IVAR(7,l) 

IVAR(lO.l)    =    IVARI6.1)    ♦  IVARIB.l) 

IVAR I  11,1)    =  NONSTK 

V  AS  I  I  ,  1  )    =   PRICFI 1) 

VAR (2,1)    =   PR  I  BO ( 1 ) 

GSVALB  =   GVLBF   *   (PRIBD(l)   -  BFCSTI 

GSVALC   =    (GVLCU   *  0.01)    »   (PRICF(l)   -  C 

VAR(13,1)    =  GSVALC   +  GSVALB 

V4RI14.1)    =   VARI13.1)    +  VAR(12,1) 

DO   110  1=1,14 

N  =   I   +   1 1 

JVAR (1,1)    =   NSUM( I ) 


Subroutine  COVER 


SUBROUTINE  COVER 

TO   SIMULATE   ANNUAL   CHANGES   DUE  TO   PLANTING  OR  FIRES. 
CONTAINS  NO   STATEMENTS   TO   BE   MODIFIED   TO   ADAPT   TO  OTHER  SPECIES. 

COMMON   BATCH(3),FLAG1,FLAG2, I  GAME, ITEST,  IYEAR 

COMMON   AGEO, AGMRCH , AM BDF ( 161 ) , ANCUVI 181) , BFMRCH , BFPCT , BFSALV , CFPI 
l,COMBF,COMCU,CYCL,CYCNW(3),DBHO,DENO,DESCR(5), DL E V , G 1 DE , GNTR , 
2KOL(6),NGAME,:NK0LS,NOYRS,NSP,PRIB0(150),PRICF(150),REGN(3),RINT, 
3SITE,SPEC(5),SUMM(6,25,10),THIN,VLLV( 3I.EXTCU 

COMMON   BA, BAST, 8DFC ( 180) ,BOFO( 1 80 ) , CFMC ( 1 80 ) ,CFMO( 1 80  I , CUFT , OBHT 
101  AM ( 1801  ,FCTR,HITE , JCYCL , N AGO , PRET , PROD, R EST , ROT A , STAND , VDM , 
2YSDMI 180 ) 

COMMON  ACCST, ANUL, BFCST , CLOSS , CPL T , CSTAC , C STVL , CTHN . C UC ST , DEF OR , 
1FMRCHD(10),GMNAM(3),IACRE(180),IALCUT,IPLNT,IVAR(26,150), 
2 JVAR (15, 150) ,K0UNT,LAND,LAST,MALCUT(10),M0LD,NAC0S( 180), 
3NACUNU80)  .NONSTK,  PRIDIVI  10  )  ,  R  AT  E ,  RETRN,  V  AR  (  14,  150),YRL0S 

COMMON  AGE0S(100  0),AGEUN(1000), ANNET , CUT AGE , GSVALB , G SVALC .GVLBF , 
1GVLCU,ISUM(  18),  IYRM,KACR,LOSS,,MIX,MTHN,NSUM(  18)  ,  RETHV.RETTH,  SCLO! 
2 , SCPLT, SCTHN, TCOST , TRET  ( 1000) ,VBHV,VCHV,VLBF,VLCU 


I  10    IVAR ( N , 1 )    =    ISUMI  I  ) 

GVLBF   =  0.0 

00   120  1=15,18 

GVLCU  =  0.0 

JVARI15.il    =  JVAR(15,1) 

+   NSUMI I ) 

LOSS   =  0 

120    IVARI26,!)    =  IVARI26.1) 

♦  ISUM(I) 

NPLNT   =  0 

RETURN 

RETHV   =  0.0 

END 

RETTH  =  0.0 

SCLUSS   =  0.0 

SCPLT   =  0.0 

SCTHN   =  0.0 

Subroutine  REPRT1 

VLBF   =  0.0 

VLCU   =  0.0 

SUBROUTINE   RE  PR  T 1 

JCYCL   =  CYCL 

C 

I YRM   =    I  YE  AR 

C   TU  REPORT   DISTRIBUTION  OF   ACRES   BY   AGE  CLASSES.  C 
C  CONTAINS  NO   STATEMENTS   TO   BE   MODIFIED   TO   ADAPT   TO  OTHER   SPECIES.  C 
C  C 
COMMON   BATCH(3) .FLAG1.FLAG2,  (GAME.  ITEST,  IYEAR 

COMMON  AGEO, AGMRCH, ANBDF ( 18  1), ANCUVI 181) , BFMRCH, BFPCT, BFSALV, CFPCT 
1,C0MBF,C0MCU,CYCL,CYCNW(3), DBHO , DENO, DE SCR  I  5 ),DLEV,G IDE, GNTR, 
2K0L (6)  ,NGAME , NKOLS , NDYRS , NS P , PR  I  BO  I 150),PRICF(150),REGN(3),RINT, 
3SITE.SPECI5) .SUMMIfc, 2  5, 10 > , TF IN, VLL V I 3) .EXTCU 

COMMON   B A, BAST, BOFC( 180) , BDFO ( 180) ,CFMC( 1 80 ) , CF MO ( 1 80  I , CUFT, OBHT, 
1 n IAM(lflO),FCTR,HITE,JCYCL,N AGO, PRET, PROO, REST, ROTA, ST AND, VDM, 
2  YSDM  ( 180) 

COMMON  ACCST, ANUL, RFCST, CLOSS, CPLT.C STAC, CSTVL, CTHN, CUC ST, DEF OR, 
1 F  MR  CUD ( 10) , GMNAM ( 3),IACRE(180), I ALCUT, IPLNT, IVAR (26,  150)  , 
2IVARI15.150), KOUNT, LAND, LAST, MALCUK 10) , MOLD, NACOS ( 180 ) , 
3NACUN 1180), NONSTK, PRIDIV(IO), RATE, RETRN, VAR (14, 150), YR LOS 

COMMON  AGEOS ( 1000  I , AGEUN ( 10C0) , ANNET,  CUT AGE, GSVALB .GSVALC .GVLBF , 
1GVLCU.ISUM(13),IYRM,KACR.L0SS.MIX,MTHN,NSUM(18),RETHV,RETTH,SCL0SS 
2 , SCPLT, SCTHN, TCOST , TRET ( 1 000 ) , VBHV , VCHV , VL B F , VL CU 

C  C 

C   V.R1TE   TABLE   HEADINGS   FOR   PAGE   TYPE  4. 

C 

DO   120  KU=1,2 

IFIKU   .EO.   2    .AND.    REGNI2)    .EO.   0.0)    GO   TO  120 
WRITE  (6,5) 
5   FORMAT    ( 1H1,//,55X, 11HPAGE   TYPF  4) 
IFIKU   . EO.   2)    GO   TO  15 
WRITE  (6,10) 

10  FORMAT    ( 1H0,40X,38HDISTRIBUTI0N  OF  OVERSTORY   ACRES   BY  AGE) 

GO  TO  30  C 
15  WRITE  16,20)  C 
20  FORMAT  I  1H0.40X, 39HDI STR I  BUT  ION  OF  UNDERSTORY  ACRES  BY  AGE)  C 
30   WRITE    (6,35)    ( BATCH (  I  ) , I = 1 , 3  I 


MAKE    ANY   SCHEDULED   ANNUAL    SEEDING  OR  PLANTING. 

I F ( NUNS TK    .EO.   0)    GO   TO  5 
NPLNT   =  IPLNT 

I F ( NPLNT    .GT.   NONSTK)    NPLNT   =  NONSTK 

NONSTK   =   NONSTK   -  NPLNT 

APLT   =  NPLNT 

SCPLT  =   APLT   *  CPLT 

I F I NONSTK    .EO.   0)    GO  TO  5 

.GT.   0.0)   GO  TO  1 
-  NONSTK  +    1    +  LAST 
LAND)    KIM   =    KIM   -  LAND 


IFIRcGN(2) 
KIM  =  LAND 
IF (KIM  .GT. 
GO  TO  3 
KIM   =  LAND 
ICH   =   KIM  + 


■  NONSTK  +  I 
NQNSTK  -  1 


C    INCREASE   STAND  AGES   ONE  Y  EAR  TO  OBTAIN   AGES   FOR  CURRENT  YEAR. 

C 

5   DO   1C    1=1, LAND 

AGEOSI I )    =   AGEOSI I )    +  1.0 
10  CONTINUE 

00   13    1=1, LAND 

I T I TRETI I )    .EO.    0.0)    GO  TO  13 
AGF  UN  I  I  )    =   AGEUN I  I )    +  1.0 
TRETI I )    =   TRETI I )    ♦  1.0 
13  CONTINUE 

I F (NONSTK    .EO.   0)    GO  TO  20 

r. 

SUPPRESS   AGE    INCREASE   FOR   NONSTOCKEO  ACRES. 
DO   15  I=KIM,ICH 
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0.0)    GO  TO  39 
.GT.    REGN(l)  .AND. 


AGEOS(KACR)    .NE.   REGN ( 2 ) )   GO  TO 


AGEOSI I )    =  0.0 
AGEUN1 I)    =  0.0 
15  CONTINUE 

20  1 F ( DEFOR   .EO.   0.0)    GO   TO  100 

COMPUTE   AREA  DEFORESTED  ANNUALLY. 

AKDX  =   LAND  -  NONSTK 

YRLOS  =    ( AKDX   *  DEFOR )    ♦  YRLOS 

1FIYRL0S    -LT.    1.0)    GO  TO  100 

GENERATE   PSEUDORANDOM  NUMBER   FOR   AGE  OF   ACRE  DESTROYED. 

WITH   SEED  TREES  OR   SHELTERWOOD,    ALL   COMPUTATIONS   BASED  ON   AGE  OF 

OVERSTORY. 

25  NDIV  =  (17.0   *  ANUL   ♦   3.0)    /    128. P 

NULL   =  ANUL 

NULL  =  (17  *  NULL   *   3)   -   128  *  NDIV 

ANUL  =  NULL 

CHECK  THAT  AGE   EXISTS   AND   IS   BETWEEN  ONE   AND  OLDEST  CURRENT  AGE. 

IFIREGNI2)    *EQ.   0.0)    GO  TO  28 
I F ( ANUL   .LE.    AGEO    )   GO  TO  25 
GO  TO  29 

28  I F ( ANUL  .LE.   0.0)  GO  TO  25 

IF (ANUL   .GT.    AGEOS ( KOUNT ) )   GO   TO  25 

29  DO  30  M=l tLAND 
KACR  =  M 

IF(AGEOSIM)    .EO.    ANUL)    GO  TO  35 

30  CONTINUE 
GO  TO  25 

SET  LOSS   TO  REDUCE  CURRENT   ALLOWABLE  CUT. 

35  LOSS  =   LOSS  +  1 

NONSTK  =   NONSTK   +  1 
YRLOS  =   YRLOS  -  1.0 
IFIREGNI2)    .GT.   0.0)   GO  TO  38 
I F ( I  YEAR   • EO.    1)    LAST   =  KACR 

SALVAGE   BOARD-FOOT  VOLUME   IF   NOT   LESS   THAN   BFSALV   AND    !F   AGE  IS 
GREATER   THAN  AGEO. 

38  I F 1  NULL   .LE.    NAGO)    GO  TO  50 
IFIIYEAR    . EQ.    1)   MTHN  =  FMRCHD(l) 
NULL  =  NULL  ♦  1 

KULL   =   NULL  -  1 
I F 1 REGN ( 2 )  -EO 
I F ( AGEOS ( KACR ) 
1  40 

39  I F ( KULL   .LT.    MTHN )    GO  TO  40 
SALVB  =   ANBDF ( NULL )    +  BDFC(KULL) 
GO  TO  45 

40  SALVB  =   ANBDF ( NULL ) 

45   IFISALVB   .GE.    BFSALV)    GO  TO  48 

SCLOSS   =   SCLOSS   +  CLOSS 

GO  TO  50 
48  VLBF   =   VLBF  ♦  SALVB 

RETTH  =   RETTH  +   SALVB   »   (PRIBO(IYRM)    *   BFPCT ) 

RE  NUMBER  ACRES.   PUT   ACRE  LOST   AT   END  OF   AGE   SEQUENCE   WITH  AGE  ZERO. 

50   I F ( REGN ( 2 )    .GT.   0.0)   GO  TO  80 

I F ( KACR   .NE.   KOUNT )   GO  TO  55 

LAST  =   LAST  +  1 

KOUNT  =   KOUNT  +  1 

AGEOS ( LAST )    =  0.0 

GO  TO  100 
55   LUB  =   LAST  -  1 

I F ( KACR   .LT.    LAST)   GO  TO  70 

MNO  =   LAND  -  KACR 

DO  60  J=1,MN0 

JSUB  =   KACR   ♦  J 

I  SUB  =   JSUB  -  1 

AGEOS(ISUB)   =  AGEOS(JSUB) 
60  CONTINUE 

AGEOS ( LANO )   =  AGEOS(l) 

DO  65  K=1,LUB 

KAN  =  K   +  1 

AGEOS ( K )    =  AGEOS ( KAN ) 
65  CONTINUE 

AGEOS ( LAST )   =  0.0 

GO  TO  100 
70  DO  75  M=KACR  t  LUB 

HOL  =  H  +  1 

AGEOS ( M)   =  AGEOS(MOL) 
75  CONTINUE 

AGEOS 1  LAST )   =  0.0 

GO  TO  90 
80  MNO  =   LAND  -  1 

DO  85   M=KACR , MNO 

MOL   =  M  +  1 

AGEOS I M)    =   AGEOS ( MOL ) 

AGEUN(M)    =  AGEUN(MOL) 

TRET  1 M )    =  TRET ( MOL ) 
85  CONTINUE 

AGEOS ( LAND )   =  0.0 

AGEUN ( L AND )   =  0.0 

TRET ( LAND )   =  0.0 

I F ( KACR   .LE.    LAST)    LAST  =   LAST  -  1 
REMOVE  ANOTHER  ACRE   IF   FIRE  LOSS   TOTAL   STILL   ONE   ACRE  OR   MORF . 
90   IFIYRLOS   .GE.    1.0)    GO  TO  25 


IF(REr,NI2)    .GT.    0.0)    GO  TO  100 
[F( I  YEAR   .FO.    )  )    LAST   =  0 

PREPARE  SUBTOTALS  FOR  CURRENT  YEAR  AND  CHECK  THAT  NO  ACRT  IS  OLDER 
THAN    179  YCARS. 


.180 
0 
0 


1. 


100   DO   110  K=l 

NACOSIK)  = 

NACUNIK)  = 
110  CONTINUE 

DO   130   K= 1 , L  AND 

IF(AOtOSIK)  .LE 

FLiGl   =   2. a 

GO  TO  140 
120   LM  =   AGEOS ( K )  + 

NACOS(LM)    =  NACOSILM) 

"L   =   AGE  UN ( K  >   +  1.0 

NACUN  (  ML  )   =  NACUN(ML) 
130  CONTINUE 
140  RETURN 

END 


Subroutine  HRVST 


179.0)    SO  TO  120 


SUBROUTINF  HRVST 

TO   SIMULATE   ANNUAL   CHANGES   DUE   TO  THINNINGS   AND  REGENERATION  CUTS. 
STATEMENTS   FOR   ADD   ARE  SPECIES-SPECIFIC. 

COMMON   BATCH  (  3  )  ,FL  AG1 ,  FLAG2,  I  GAME.  ITES  '.  -  IYFAR 

COMMON   AGEO, AGMRCHf  ANPDF ( 181 ) ,ANCUV( 181.  , BF MRCH , BF PC T , BF SAL V , CF PC T 
l.COMBF.COMCU.CYCL.CYCNWm.DBHO.DENO.DESCMSl.DLEV.GIOE.GNTR, 
2K0L (6)  ,NGAME , NKOLS , NHYRS , NS P , PR  I  BO ( 150), PR lTF(  150) ,REGN( 3) ,RINT, 
3SITE,SPEC(5),SUMM(6,25,10),THIN,VLLV(3),EXTCU 

COMMON   HA, PAST, ROFC ( 180) , BDFOI 18  0) ,CFMC( 180) ,CFMO( 180) ,CUFT,DBHT, 
1DI AMI  130 ) ,FCTR,HITE, JCYCL , NAGO , PRE T , PROD, REST , ROT  A , ST  AND , VDM, 
2YSDMI180) 

COMMON  ACCST , ANUL , BFCST , CLOSS, CPL T , C ST  AC , C STVL , CTHN , C UC ST ,OEF OR , 
IF  MR  CHOI  10)  ,GMNAM(3),IACRE(18D,IiLCUT,'PLNT,IVAR(2f>,150), 
2JVAR(15,150)  ,  KOUNT,  LAND,  LAST  .MALCUT  I  10  )  ,  MOLCNACOS  (110), 
3NACUNI 180)  , NONSTK, PRIDIV(10),K AT F, R ETR^,  'AR (14, 150), YRLOS 

Cn"MON  AGEOS  I  1000  ),  AGEUN I  1000  >,  ANN ET,CUTAJ,E,  CSVALB  .GSVALC  ,G VLBF  , 
1GVLCU,ISUM(1B),I YRM.K ACR, LOSS, Ml  X, MTHN,,!  SUM  il8), RE THV, RETTH, SCLOSS 
2  ,  SCPLT,  SC  TUN  tTCOST,  TRET  <  1000), VBIV,VCHV,VLPF, VLCU 


DETERGING    ALLOWABLE   CUT   ON   BASIS  OF 


FT.    S  .  :«PAGE   PR  ICE. 


DO  5  J=l,10 

NSUB   =  J 

IFIPRIBD(IYRM)    .LE.   PRIDIVIJ))   GO   TO  10 
5  CONTINUE 
10   IALCUT   =   MALCUT I NSUB )    -  LOSS 
CUTAGE   =   FMRCHD I NSUB ) 

COMPUTE  THINNINGS   FOR   ANNUAL  CUT. 

MXY  =  0 

MAC  =  CUT  AGE 

DO  70  I=NAGO,MAC,JCYCL 

COMPUTE   HD.    FT.   FROM  THINNINGS. 

VRTH   =  0.0 
VCTH  =  0.0 
VLKF1   =  0.0 
VLBF3   =  0.0 
VLCU1   =  O.C 


VLCU3 
I  F  (  I  , 


=  0.0 

GE.    MAC )    GO  TO  80 


MR  =   I   +  1 

IF(BDFCII)    .LT.   COMBF)    GO  TO  60 
VLBF1   =   NACOS(MR)    *  BDFC(I) 
VLBF 3   =   NACUN ( MR )    *  BDFC(I) 
VLBF   =   VLBF   +   VLBF 1   +  VLBF3 
VB.TH  =   VLBF1    t  VLBF3 

KF.TTH   =   RETTH   t   VHTH   *    ( PR  I  BDl  1YRM  )   *  RFRCTI 
MXY  =  MXY  +  1 

CU.    FT.    NOT    IN  SAWLOGS    INCLUDED   IN  CU .    FT.   CUT,    IF  COMMERCIAL. 

GO  TO   (15,20,25)  ,  NSP 
15   AOD  =   BDFC(I)    *    (61.79999   +   2677.97761   /   DIAMII)   -   4.03445  * 
II  )  ) 

GO  TO  50 

20   AOD  =   BDFCII)    *    1209.34226  +   298.06217  /   DIAMII)   -   0.54225  « 
1    RDFC (II) 
GO  TO  50 
25  CUNT1NUE 

50  ADD   =  CFMC ( I )    -  ADO 

IFIADO   .LT.   EXTCU)    GO  TO  70 
VLCU1   =   NACOS(MR)    *  ADD 
VLCU3   =   NACUN I  MR)    *  ADD 
VLCU   =   VLCU   +  VLCU1    +  VLCU3 
VCTH  =   VLCU1    +  VLCU3 

RETTH  =   RFTTH   +    IVCTH   *  O.ni)    *    IPRICF(IYRM)   *  CFPCT) 
GO   TU  70 

COMPUTE   CU.    FT.    FROM   THINNINGS   IF   BD.    FT.   CUT   IS  NONCOMMERCIAL. 

60    IFICFMCII)    .LT.   COKCU)   GO   TO  65 
VLCU1   =   NACOSIMRI    *  CFMC(I) 
VLCU3  =   NACUN ( MR )    *  CFMC(I) 
VLCU  =   VLCU  +   VLCU1    ♦  VLCU3 
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VCTH   =   VLCUl   +  VLCU3 
RETTH  =   RETTH  +  VCTH 
MXY  =   MXY   *  1 
KG   TO  70 

65   MXY  =   MXY   +  1 

SCTHN  =  NACOSIMR)  *  CTHN 
SCTHN  =   NACUN ( MR )    «  CTHN 

70  CONTINUE 

80   MTHN  =   NAGO  +   MXY   *  JCYCL 


*  0.01   *   (PRICF(IYRM)    *  CFPCT) 


SCTHN 
SCTHN 


Subroutine  SHWD 


SELECT   APPROPRIATE    SUBROUTINE   FOR   SUVICULTURAL   SYSTEM  SPECIFIED. 


IFIIALCUT  , 
I F ( REGN ( 2 ) 
CALL  CLEAR 
GO   TO  100 
90  CALL  SHWD 
100  RETURN 
END 


LE. 

•  GT, 


0)    GO  TO  100 
0.0)    GO  TO  90 


Subroutine  CLEAR 


SUBROUTINE  CLEAR 

TO  COMPUTE  VOLUMES   FROM  HARVEST    BY   CL  EARCUTT ING . 
STATEMENTS   FOR   ADD  ARE  SPECIES-SPECIFIC. 

COMMON  BATCH (3) , FLAG1 , FLAG2, IGAME, IT  EST,  I  YEAR 

COMMON  AGE0,AGMRCH,ANB0F(181>, ANCUVI 181),BFMRCH,BFPCT,BFSALV,CFPCT 
1 ,C0MBF,COMCU.CYCL,CYCNW( 3 ) , DBHO , DENO , DE SCR ( 5 ) , OLE  V , G I DE , GNTR , 
2K0L(6),NGAME,NK0LS,N0YRS,NSP,PRI6D(150),PRICFI150I,REGN!3),RINT, 
3  S I TE , S  PEC (5)  ,SUMM(6,2  5, 10) ,THIN,VLLV( 3 ), EXTCU 

COMMON   BA,BAST,BDFC( 180) , BDFOI 18  0) ,CFMCi 180) ,CFMO( 180) ,CUFT,08HT, 
1 D I  AM ( 130) , FCTR,HITE,JCYCL,NAGO,PRET,PROD,REST,ROTA,STAND,VDM, 
2YSDMI180) 

COMMON  ACCST,ANUL,BFCST,CLOSS,CPLT,CSTAC,CSTVL,CTHN,CUCST,DEFOR, 
1FMRCHO(10I,GMNAM(3),IACRE(180),IALCUT.IPLNT,IVAR(26,150I, 
2  JVAR ( 15 , 1 50 ) .KOUNT, LAND, LAST, MALCUT(IO), MOLD, NAC0SI180), 
3NACUN(180),N0NSTK,PRIDIVI10),RATF,RETRN,VAR(14,150),YRL0S 

COMMON   AGE OS ( 1000 ) , AGEUNI 1000) , ANNET , CUT AGE , GSV ALB , GSVALC ,GvL8F , 
1GVLCU, I  SUM! 18) , I YRM, K ACR , LOSS , M I  X , MTHN , N SUM  I  18) , RE THV , RE TTH , SCLOS S 
2,SCPLT,SCTHN,TCOST,TRET(1000),VBHV,VCHV,VLBF,VLCU 

KAI    =  0 

DO   1*0    [=1, IALCUT 
VBHV  =  0.0 
VCHV   ■  0.0 
VLBF2   ■  0.0 
VLCU2   =  0.0 

IFILAST    .LT.    LAND)    GO  TO  10 

LAST   =  0 
10  LAST   =   LAST   +  1 

I F ( AGEOS ( LAST )    .GE.    CUTAGE)    GO  TO  20 

LAST  =   LAST  -  1 

GO  TO  150 
20  M  =   AGEOS (LAST) 

KAI    =   KAI   +  1 

K  =  M  +  1 

KOUNT   =   KOUNT   +  I 

I  SAFE   =   LAND  +  1 

IF1K0UNT  .GE.  ISApE)  KOUNT  =  1 
COMPUTE   BP.    FT.    FROM  HARVEST  CUTS. 

1F(M   .LT.    MTHN)   GO  TO  30 

VLBF2   =   ANBDF(K)    *  BDFC(M) 

TEM  =   ANCUV(K)    +  CFMC(M) 

GO  TO  40 
30  VLBF2  =  ANBDF(K) 

TEM  =  ANCUV(K) 
40   I F ( VLBF2    .LT.   COMBF)    GO  TO  100 

VLBF   =   VLBF   +  VLBF2 

VBHV  =  VLBF2 

RETHV  =   RETHV  +   VBHV   *  PRIBD(IYRM) 

CU.    FT.    NOT   IN   SAWLOGS    INCLUDED    IN  CU.    FT.   CUT,    IF  COMMERCIAL. 

GO  TO   (50,55,60),  NSP 
50   ADD  =   VLBF  2  *    (61.  79999  +   2677.97761   /   0 1  AM ( M )   -   4.03445  *   VLBF2 ) 
GO   TO  90 

55   ADD   =   VLBF2   *    (209.34226  +   298.06217   /   DIAM(M)   -   0.54225   *  VLBF2) 

GO  TO  90 
60  CONTINUE 
90  VCHV   =   TEM  -  ADD 

IFIVCHV   .LT.    EXTCU)    GO  TO  130 

VLCU  =   VLCU   ♦  VCHV 

RETHV  =   RETHV   +   VCHV   *   0.01   *  PRICF(IYPM) 

GO   TO  130 


COMPUTE   CU.    FT.   FROM  HARVEST   CUTS  IF 


FT.   CUT   IS  NONCOMMERCIAL. 


LOO   IF(M   .LT.    MTHN )    GO  TO  110 

VLCU2   =   ANCUV(K)    -f  CFMCIM) 

GO  TO  120 
110   VLCU2  =  ANCUV(K) 

120   I F ( VLCU2    .LT.   COMCU)    GO  TO  140 
VLCU  =  VLCU  ♦  VLCU2 
VCHV   =  VLCU2 

RETHV  =   RETHV   ♦  VCHV   *  0.01   *  PRICF(IYRM) 
130   AGEOSt  LAST )   =  0.0 
140  CONTINUE 

150   IFIKAl    .LT.    IALCUT)    IALCUT   =  KAI 

RETURN 
END 


SUBROUTINE  SHWD 

TO  COMPUTE   VOLUMES  FROM  HARVEST   BY   SEED  TREES   OR   SHELTER WOOD. 
STATEMENTS   FOR   ADD  ARE  SPECIES-SPECIFIC. 

COMMON  BATCH! 3) , FLAG1 , FLAG2 , I  GAME , I  TEST, I  YEAR 

COMMON  AGEO, AGMRCH , ANBDF ( 181 ), ANCUVI 181) , BFMRCH, BFPCT, BFSAL V, CFPC 
1 , COMBF, COMCU, CYCL, C YCNW ( 3), DBHO, DENO, DESCRI 5), OLE V,G IDE, GNTR, 
2K0L(6I,NGAME,NK0LS,N0YRS,NSP,PRIBD( 150 ) , PR  I CF 1 1 50 ) , REGN I  3  I ,RI NT, 
3  SITE, SPEC (5) ,SUMM(6,25,10) , TH I N , VLLV ( 3  I , EXTCU 

COMMON  BA,BAST,BDFC(180), BDFOI 180 ) ,CFMC( 180) ,CFM0( 1  BO ) ,CUFT,DBHT, 
1DIAMI 180) , FCTR.HITE, JCYCL, NAGO, PR ET , PROD, R E ST , ROTA , STAND, VDH, 
2YSDMI 180) 

COMMON  ACCST,ANUL,BFCST,CLOSS,CPLT,CSTAC,CSTVL,CTHN,CUCST,DEFOR, 
IF  MRCHD 110)  ,GMNAM( 3 ) , I  ACRE! 180) ,  IALCUT, IPLNT,  I VAR I  26, 1 50 1 , 
2JVAR (15,150),KOUNT,LAND,LAST,MALCUT(10 ) , MOLD, NACOS ( 1 80 ) , 
3NACUNI 180) ,NONSTK,PRIDIV( 10) , R ATE , RE TRN , VAR ( 14,150), YRLOS 

COMMON  AGEOS! 1000) , AGEUNI 1000) , ANNET, CUT AGE , GSV AL B .GSvALC , GVLBF , 
1GVLCU,ISUM(18) , I YRM, K ACR, LOSS, MIX, MTHN, NSUM I  18), RETHV, RETTH, SCLOS 
2,SCPLT,SCTHN,TC0ST,TRET|  1000  I, VBHV, VCHV, VLBF, VLCU 

JK   =  REGN I  1 )    ♦  1.0 
KJ  =   REGN ( 1 ) 
KAI   =  0 

INT  =  CYCNW(l)    +  CYCNWI2)    -  1.0 

MIX   =   MIX  ♦  1 

IFIMIX   .GT.    INT)    MIX   =  1 

MAKE   ALLOWABLE   CUT  OF   INITIAL  CUTTINGS  BY   SHELTERWOOD  OR   SEED  TREE 
SYSTEM. 

DO   130    1=1, IALCUT 
ADD  =  0.0 
VBHV  =  0.0 
VCHV  =  0.0 
VL8F2   ■  0.0 
VLCU2   =  0.0 

IFILAST   .LT.    LAND)    GO  TO  10 

LAST  =  0 
10   LAST   =   LAST  +  1 

IFIAGEOSILAST)    .GE.   CUTAGE)   GO  TO  20 

LAST  =   LAST  -  1 

GO  TO  140 
20   M  =   AGEOS I  LAST  1 

COMPUTE    BD.   FT.   FROM   INITIAL  HARVEST  CUTS. 

IFIAGEOSILAST)    .GT.   REGNID)   GO  TO  30 

VLBF2   =  BOFCIKJ) 

VLCU2   =  CFMC(KJ) 

GO  TO  40 
30  TEM   =   AGEOS(LAST)    -  REGNU) 

IT  =   REGNID    ♦   TEM  +  1.0 

EXO  =   ANBDF ! I T )    -   ANBDF! J  K ) 

VI  F1F2   =   BDFCI"  I)    +  EXO 

EXT   =   ANCUV(IT)    -  ANCUV(JK) 

VLCU2   =   CFMC(KJ)    +  EXT 
40   I F ( VLBF2    .LT.   COMBF)    GO  TO  110 

VLBF   =   VLBF   +  VLBF2 

VRHV   =  VLRF2 

RETHV   =   RETHV   *   VBHV   *  PRIBO(IYRM) 
TRET ( LAST )    =  1.0 
KAI    =   KAI   +  1 

CU.   FT.    NOT    IN   SAWLOGS   INCLUDED   IN   CU.    FT.   CUT,    IF  COMMERCIAL. 

IFIM   .GT.    KJ)    M  =  KJ 
GO  TO    (50,60,70),  NSP 
50   ADD   =  VLBF2  *    (61.79999  *   2677.97761   /   DIAM(M)   -  4.03445  *  VLBF2) 

GO  TO  100 

60  ADD  =  VLBF2   *    (209.34226   +   298.0b217  /   DIAM(M)   -   0.54225  *  VLBF2) 

GO  TO  100 
70  CONTINUE 
100   TEM  =  VLCU2 

VCHV   =   TEM  -  ADD 

IFIVCHV    .LT.    EXTCU )   GO  TO  130 

VLCU   =  VLCU  *  VCHV 

RETHV  =  RETHV  +   VCHV   *   0.01    *  PRICF(IYRM) 

GO  TO  130 

COMPUTE   CU.    FT.   FROM  HARVEST   CUTS    IF   BD.   FT.   CUT    IS  NONCOMMERCIAL. 

110    IFIVLCU2    .LT.    COMCU)    GO  TO  130 
VLCU  =   VLCU  +  VLCU2 
VCHV  =  VLCU2 

RETHV   =   RETHV   +   VCHV   *  0.01   *  PRICFIIYRM) 
TRET  I  LAST  )    =  1.0 
KAI   =  KAI    *  1 
130  CONTINUE 

ADD  VOLUME   AND  VALUE  OF  SECOND  CUT  OF   SHELTER  WOOD  OR   SEED   TREES  TO 
APPROPRIATE   YEAR  TOTAL. 

140  K  =   REGN! 2) 
KK  =  K  +■  1 

TMPY  =   CYCNWI 1)    +  1.0 
DO  230   1=1, LAND 

I F  I  TRET  I  I )    . NE .    TMPY)    GO  TO  230 

ADD  =  0.0 

VBHV   =  0.0 

VCHV  =  0.0 

VLBF2   =  0.0 

VLCU2  =  0.0 

M   =   AGEOS I  I ) 


30 


(F(REGN(3)    .EQ.   0.0)   GO  TO  150 
VLBF2   =  BOFC(K) 
VLCU2  =  CFMC(K) 
GO   TO  160 
150  VLBF2   =  ANBOF(KK) 
VLCU2  =  ANCUV(KK) 

COMPUTE   BO.    FT.   FROM  SECONO  CUTS. 

160   I F ( VLBF 2    .LT.  COMBF)    GO  TO  210 

VLBF   =   VLBF   *  VLBF2 
VBHV  =  VLBF2 

RETHV  =   RETHV  <•   VBHV   *   PR  I BD ( I YRM ) 


CU.   FT.    NOT   IN  SAWLOGS    INCLUOED   IN  CU.   FT.   CUT,    IF  COMMERCIAL. 

IFIM   .GT.   K )    M  =  K 
IFIM   .EQ.   0)    GO  TO  220 
IF (DI AM  t  M)    . EQ.   0.0)   GO  TO  220 
GO  TO    (170,175.180),  NSP 
170   ADD  =   VLBF2  *    161.79999   <■   2677.97761   /   D I  AM  I M  )   -   4.  03445   ■>  VLBF2) 
GO   TO  200 

175   ADD  =   VLBF2   »    (209. 34226  +   298.06217   /  DIAMIM)   -   0.54225   *  VLBF2 ) 

GO  TO  200 
180  CONTINUE 
200   TEM  =  VLCU2 

VCHV   =   TEM  -  ADD 

IFIVCHV   .LT.    EXTCU)   GO  TO  220 

VLCU  =   VLCU  ♦  VCHV 

RETHV  =   RETHV  +   VCHV   *  0.01   *  PRICF(IYRM) 
GO  TO  220 


COMPUTE   CU.    FT.    IF   BD.    FT.   VOLUME   NOT  COMMERCIAL. 

210  IFIVLCU2   .LT.  COMCU)   GO  TO  230 
VLCU  =  VLCU  +  VLCU2 
VCHV  =  VLCU2 

RETHV  =   RETHV   +  VCHV   «  0.01   *  PRICF(IYRM) 
CHANGE   STAND  AGE   AND  STORY   DESIGNATION  TO  MATCH  CUT. 

220   I F I REGN ( 3 )    .GT.   0.0)    GO  TO  230 

TRET { I )   =  0.0 

AGEOSI I )    =   AGEUNI I ) 

AGEUN(I)    -  0.0 
230  CONTINUE 

ADD  VOLUME  AND  VALUE  OF  THIRD  CUT  OF  SHELTERWOOO  TO  APPROPRIATE  YEAR 
TOTAL. 

I F ( REGN ( 3 )    .EQ.    0.0)    GO  TO  340 
K   =  REGNO) 
KK  =   K  +  1 

TMPY  =   CYCNW(l)   +  CYCNWI2)    ♦  1.0 
DO  330   1=1, LAND 

I F  t  TRET ( I )    .LT.   TMPY)    GO  TO  330 

ADD  =  0.0 

VBHV  =  0.0 

VCHV  =  0.0 

VLBF2  =  0.0 

VLCU2   =  0.0 

M  =  AGEOSI I) 

VLBF2   =   ANBDF IKK) 

VLCU2  =  ANCUV(KK) 

COMPUTE   BD.   FT.   FROM   THIRD  CUTS. 

IFIVLBF2   .LT.   COMBF )    GO  TO  310 
VLBF   =  VLBF   +  VLBF2 
VBHV  =  VLBF2 

RETHV  -   RETHV   +  VBHV   *  PRIBO(IYRM) 

CU.    FT.   NOT    IN  SAWLOGS   INCLUDED   IN  CU.   FT.   CUT,    IF  COMMERCIAL. 

IFIM   .GT.    K )    M  =  K 
IFIM   .EO.   0)   GO  TO  320 
IFIDIAMIM)  _.EQ.   0.0)    GO  TO  320 
GO  TO   (270,275,280),  NSP 
270   ADD  =  VLBF2   *    (61.79999   +  2677.97761   /   DIAMIM)   -   4.03445   *  VLBF2) 
GO  TO  300 

275   ADD   =   VLBF2   *    (209.34226  +   298.06217   /   DIAMIM)   -   0.54225  *  VLBF2) 

GO  TO  300 
280  CONTINUE 
300  TEM  =  VLCU2 

VCHV  =   TEM  -  ADD 

IFIVCHV   .LT.    EXTCU)   GO  TO  320 

VLCU  =  VLCU  ♦  VCHV 

RETHV   =   RETHV  ♦   VCHV   *  0.01   *  PRICFIIYRM) 
GO   TO  320 


COMPUTE   CU.    FT.    IF   BD.   FT.   VOLUME   NOT  COMMERCIAL. 

310   IFIVLCU2   .LT.   COMCU )   GO  TO  330 
VLCU  =   VLCU  +  VLCU 2 
VCHV  -  VLCU2 

RETHV  =  RETHV  ♦   VCHV   *  0.01   *  PRICFIIYRM) 
CHANGE   STAND  AGE   AND  STORY   DESIGNATION  TO  MATCH  CUT. 

320  TRET  I  I )   =  0.0 

AGEOSII )   =   AGEUNI I ) 

AGEUNI I )   =  0.0 
330  CONTINUE 

340   IFIKAI    .LT.    IALCUT)    1 ALCUT  =  KAI 
IFIMIX   .GE.    INT)   GO  TO  350 


(ETURN 
350  CALL  ARNG 
RETURN 

END 


Subroutine  ARNG 


SUBROUTINE  ARNG 

TO  REARRANGE    ACRES   FOP   SIMULATION   PERIODS  LONGER  THAN  REGENERATION 
PERIOD. 

COMMON  BATCH  I  3 ) .FLAGl , FLAG2 , I  GAME, I  TEST,  I  YEAR 

COMMON   AGEO, AGMRCH, AN  RDF (181),ANCUVI181), BFMRCH , BF PCT , BF S AL V , CFPC T 
1  .COMET  ,  COMCU,  CYC  L,CYC.NW(3)  ,  DBHO,  DENO,  DESCR  I  5  )  ,  OL  EV  ,  G  I DE  ,  GNTR  , 
2K0LI6),NGAME,NK0LS,N0YRS,NSP,PRIHD(150),PRICF(150),REGNI3),RINT, 
3SITE, SPEC (5), SUMMI6.25, 10), THIN, VLLVI3), EXTCU 

COMMON   3A.BAST.R0FC I  180 ) , BDFOI 180) ,CFMCI100),CFMO(180),CUFT,DBHT, 
lPIAMIlaOl.FCTR.HITF, J C YC L . N AGO , PRE T , ° RO D , RE ST , ROT  A , ST AND , VDM , 
2YS0M1 180) 

COMMON   ACCST.ANUL, BFCST , CLOSS , CPL T , C ST AC , C STVL , CTHN , CUC ST ,DEF OR , 
1FMRCHDI 10) , GMNAM ( 3 ) , I  ACRE ( 180) , I ALCUT , IPLNT, IV AR (26, 150), 
2JVARI15, 15 Ol.KOUNT, LAND, LAST, MALCUTI10 ) , MOLD, NACOS ( 180) , 
3NACUM|180),NONSTK,PRIDIV(10),RATE,RETRN,VAR(14,150),YRLOS 

COMMON   AGEOSI 1000), AGEUNI 1000), AN NET, CUTAGE,GSVALB,GSVALC,G VLBF, 
1~,VLCU.ISUMI1S),IYRM,KACR,L0SS.M[X,MTHN,NSUM(18),RETHV,RETTH,SCL0SS 
2,SCPLT,SCTHN,TC0ST,TRFT(1000) , VBHV , VCHV , VL BF , VLCU 

DO  5  1=1,180 
5  NACOS I  11=0 

PRESERVE   VALUES   OF   T  RET  I  I  )   GREATER   THAN  ZERO. 

KU  =  0 
LAB  =  0 

DC   10    1=1, LAND 
LAB  =1-1 

IFITRETII )    .GT.    O.Of  GO  TO  15 
10  CONTINUE 
15   00  20   1=1, LAND 

KU  =  KU   +  1 

KOX   =   LAB   +  I 

IFIKOX   .GT.    LAND )    GO  TO  25 

TRET  I  I )    =  TRETIKDX) 
20  CONTINUE 
25   DO  30   I =KU,LAND 
30   TRET  I  I )    =  0.0 

SUM  ACRES   BY   1-YEAR   AGE  CLASSES. 

DO1  40   1  =  1  .LAND 

L M   =   AGECS I  I  I    +  1.0 

NACOSILM)    =   NACOS(LM)    +  1 
40  CONTINUE 

DC  50   1=1, LAND 

AGEOSII 1=0.0 

AGEUNI I )    =  0.0 
50  CONTINUE 

CONVERT   OVERSTORY   ACRES    IN   EACH  NACOS! I)    TO   INDIVIDUAL  ACRES. 
ASSIGN  UNDER  STORY   ACRES   TO  APPROPRIATE  OVERSTORY. 

JK   =  0 

00   70  J=l,180 

IF(JK   .GT.   LAND)    GO  TO  80 

lFINAC.nSIJ)    .LC.    0)    GO   TO  70 

KL   =   JK  +  1 

JK   =   JK   *  NACCSIJ) 

DC  60  1=KL,JK 

NAC   =   LAND  +1-1 


AGEOSI MAC)  = 
I  F ( TR  E  T ( NAC ) 
AGEUNI NAC )  = 

60  CONTINUE 

70  CONTINUE 


J  -  1 

.LE.  1.0)  GO  TO  60 
TRET  I NAC )   -  1.0 


COMPUTE    INDEX   To   LOCATF   NEXT    ACRE   FOR    INITIAL  HARVEST. 


SO  LAST  =  0 

DO  90    1=1, LAND 

IFITRETII)  .fcQ. 

LAST  =   LAST   ♦  1 
90  CONTINUE 
100  RETURN 

END 


Subroutine  SUMS 


0.0)    GO  TO  100 


SUBROUTINE  SUMS 

C 

C    TO   SUMMARIZE   RESULTS   OF    ANNUAL   CHANGES . 

C   CONTAINS  NO  STATEMENTS   TO   BE   MODIFIED   TO   ADAPT   TO  OTHER  SPFCIES. 
C 

COMMON   BATCH  I  3 ) , F L AG1 , FL AG2 , I GAMC , I  TEST,  I  YEAR 

COMMON  AGEO, AGMRCH, AMBDF I  181), ANCUVI  1 8 1 ) , BTMP CH , BF PC T , BF SAL  V , CF PC T 
1 .COMBF, COMCU, CYC L.CYCNW I  3  I , DBHO , DENO , DESCR I  5) . OLE V.G IDE. GNTR. 
2K0L (6) .NGAME . NKOLS , NOYRS , NS P . PR  I BD I 150I,PRICF(150).REGN(3),RINT, 
3  S I TF , SPEC  I  5 )  ,SUMM(6,25,10),THIN,VLLV(3),EXTCU 

COMMON  BA,BAST,BDFC( 130) , BDFOI 180) .CFMCI  1 80 ) , C F MO  I  1 80 ) »CUF  T.OBHT. 
10  I  AMI  180  I  , FCTR, H1TE, J  CYC L.N AGO, PRET, PROD, RE  ST , ROTA , STAND, VDM, 
2  Y  SDM (180) 


31 


COMMON  ACCST, ANUL, BFCST, CLOSS, CPLT, CSTAC, CSTVL, CTHN, CUC ST, DEFOR, 
1 FMRCHD ( 10 ) *  GMNAM ( 3 ) , I  ACRE  I  180), IALCUT, I PLNT , I VAR ( 26, 1 50 1 , 
2 JVAR ( 15,150), KOUNT , LAND, LAST, MALCUTt 10 ) , MOLD, NAGOSI 180) , 
3NACUN (180) ,N0NSTK,PR1DIV( 10) , RATE , RETRN, VAR ( 14, 150 l.YRLOS 

COMMON  AGE0S(1000),AGEUN(1000),ANNET,CUTAGE,GSVALB,GSVALC,GVLBF, 
1GVLCU,  I  SUM  (  18  )  ,  IYRM,KACR,  LOSS, MIX,  MTHN,NSUM  (18  )',RETHV,RETTH,  SCLOSS 
2,SCPLT,SCTHN,TC0ST,TRET( 1 000 ), VBHV , VCHV , VLBF , VLCU 

C 

C   COMPUTE   GROWING   STOCK  VOLUME.   USE  CU.    FT.    IF  VOLUME   IS  LESS  THAN 
C   BFMRCH   BOARD  FEET. 
C 

DO   50  MU=1,2 
AMU  =  MU 

IFIAMU   .EQ.   2.0   .AND.   REGNI2)    .EQ.   0.0)   GO  TO  60 
DO  40   1=1, LAND 
IFIAMU   .EQ.    2.01    GO   TO  5 
IF(AGEOSU)    .LT.   AGMRCH)    GO  TO  40 
I  AG  =   AGEOS!  I )    +  1.0 
IFIREGNI2)    .EQ.   0.01    GO  TO  10 
IF  (  AGEOS  ( I  )    -LE.    REGN(D)   GO  TO  10 
TEM  =  AGEOS(I)    -  REGN(l)    +  1.0 

I  F  (  TRET  (  I  )    .LT.   TEM)    I  AG  =    I  AG  -   (TEM  -  TRET(D) 
GO  TO  10 

5   IF(AGEUNII)    .LT.    AGMRCH )    GO  TO  40 

I  AG   =   AGEUNI  I )    ♦  1.0 
10  IBG  =  I  AG  -  1 

IFITRET(I)    . GT .    0.0)    GO   TO  15 

IFIIBG   .LT.   MTHN)   GO  TO  15 

GB LI   =   ANBOF(IAG)    *  BDFC(IBG) 

I F ( GBL 1    .LT.    BFMRCH)    GO  TO  20 

GVLBF   =   GVLBF  +  GBL1 

GO   TO  40 
15  GRL1   =   ANBDF ( 1  AG  I 

IFIGBLl    .LT.    BFMRCH )    GO  TO  20 

GVLBF   =   GVLBF   t  GBL1 

GO  TO  40 
20   IFIIBG   .LT.   MTHN)   GO  TO  30 

GCL1   =   ANCUVIIAG)    +  CFMCIIBG) 

GVLCU  =   GVLCU   *  GCL1 

GO  TO  40 
30   GCL1   =   ANCUVI  I  AG  > 

GVLCU  =   GVLCU  +  GCL1 
4C  CONTINUE 
50  CONTINUE 

C 

C   PREPARE   FOR   NEW   TOTALS   AND  SUBTOTALS. 

C 

60  00  70  K=l  , 180 

NACOSIK)    =  0 
70   NACUN(K)    =  0 

on  80   1  =  1,  18 

I  SUM  I  I )    =  0 
80  NSUM1I )    =  0 

DO  90  K=1,LAN0 

L  M   =   AGEOSIK)    ♦  1.0 

NACOS(LM)    =   NACOSILM)    +  1 

FL   =   AGEUN(K)    ♦  1.0 

N5CUNIML)    =   NACUNIMLI    ♦  1 
90  CONTINUE 

C 

C  COMPUTE   TOTAL   ACREAGE   BY   10-YEAR   AGE  CLASSES. 

C 

no   100  1=1,18 
DO   100  J=l,10 
MS  =  10  *   (I  -  1)   +  J 
1SUMII)    =    ISUM(I)    *  NACOSINS) 
NSUMIII    =   NSUMII)    ♦  MACUNINS) 
103  CONTINUE 

C 

C   COMPUTE   VOLUMES   AND  VALUES   AT   END  OF  CURRENT   YEAR   FOR   USE   BY  ANUAL. 
C 

RETRN  =   RETTH   +  RETHV 

CSTAC   =   LAND   *  ACCST   +   SCPLT   ♦   SCTHN   +  SCLOSS 
CSTVL   =  CUCST   *    (VLCU   *  0.01)   +   RFCST   *  VLBF 
TCnST  =  CSTAC  +  CSTVL 
ANNET   =   RETRN  -  TCOST 

GSVALB   =   GVLBF   *    (PRIBDI1YRM)   -  BFCST) 
GSVALC   =    (GVLCU   *   0.01)    *    (PRICFIIYRM)   -  CUCST) 

C 

C    INCREASE   COSTS   ANNUALLY,    IF  DESIRED. 

C 

ACCST   =   ACCST  +    (ACCST   *  RATE) 
BFCST   =   BFCST   *    (BFCST   *  RATE) 
CLOSS   =   CLOSS   +    (CLOSS   *   RATE  I 
CPLT   =   CPLT   <■    ICPLT   *  RATE) 
CTHN   =  CTHN  ♦    (CTHN  *  RATE) 
CUCST   =   CUCST   +    (CUCST   *  RATE) 
RETURN 
END 


Subroutine  ANUAL 

SUBROUTINE  ANUAL 

C 

C    TO   STORE    ANNUAL  VALUES   FOR   PRINTING  LATER. 

C   CONTAINS   NO  STATEMENTS   TO   BE   MODIFIED  TO   ADAPT   TO  OTHER  SPECIES. 
C 

COMMON   BATCH! 3) , FLAG1 , FL  AG2 , I  GAME, I  TEST,  I  YEAR 

COMMON  AGEO , AGMRCH, AN B0F( 181 ) , ANCUVI 181), BFMRCH, BFPCT,BFSALV,CFPCT 
1 ,C0M3F,C0MCU,CYCL,CYCNW( 3  I , OBHO, DENO, DESCR I  5 ) , DLEV , G I DE , GNTR , 
2K0L (6) , NGAME , NKOL S , NOYRS , NS P , PR  I R D I 150),PRICF(150),REGN(3),RINT, 
3SITE,SPEC(5),SUMM(A,25,10),THIN,VLLV(3),EXTCU 

COMMON  BA,BAST,BnFC(180),BDFO(180),CFMC(18P),CFMO(180),CUFT,OBHT, 


ID  I  AM  I  1801  ,l-CTR,HITfc,  JCYCL  ,  NAGO,  PRET  ,  PROD,  REST,  ROTA,  STAND,  VOM, 

2YSDMI 180) 

COMMON   ACCST, ANUL, BFCST, CLOSS, CPLT, CSTAC, CSTVL, CTHN, CUCST, DEFOR, 
1 FMRCHD I  10) , GMNAM (3) , I  ACRE  1 180), IALCUT, I PLNT, IVARi 26, 150), 
2 JVAR (15,150) , KOUNT, L AND, L AST, MALCUTC 10), MOLD, NACOSI 180), 
3NACUNQ80)  ,  NONSTK  ,  PR  I  D I V  (  10  ),  RAT  E ,  RETRN,  VAR  (  14,  150)  ,YRLOS 

COMMON  AGEOS (1000) .AGEUNI 1000  I, ANNET , CUTAGE , GSVALB , GSVALC , GVLBF , 
1GVLCU,ISUM(18),IYRM,KACR,L0SS,MIX,MTHN,NSUMI 18 ) , RETHV, RE T I H, SCLO 
2, SCPLT, SCTHN, TCOST, TRET  I  1000 ), VBHV , VCHV, VLBF , VLCU 

C 

C  CONVERT   VOLUMES   AND  AREAS   TO  SUBSCRIPTED  VALUES   FOR   FUTURE  USE. 

C 

K   =   I  YEAR 
J   =   I  YEAR  +  1 
IVARIl.J)   =  IALCUT 
IVARI2.J)    =  CUTAGE 
IVARI3.J)    =  VLCU  +  0.5 
I BFT  =   VLBF   *  0.5 
IVARI4.JI    =    IVARI4.J)    +   I BFT 
IVARI5.J)    =   IVAR(5,K)    *  IVARI3.J) 
IVARI6.J)    =   IVARI6.K)    +  IVARI4.J) 
IVAR (7, J)    =  GVLCU  t  0.5 
IVARI8.J)    =   GVLBF  +  0.5 
IVARI9.J)    =    IVAR15.J)    ♦  IVARI7.J) 
IVARIIO.J)   -    IVAR(6,J)    +  IVARI8.J) 
IVARdl.J)    =  NONSTK 
DO  1  1=1,14 
N  =    I   +  11 
JVAR(I,J)   =  NSUMII ) 
1    IVARIN.JI    =  ISUMII) 
DO  5  1=15,18 

JVAR I  1 5 , J )    =   JVARI15.J)    +  NSUMII) 
5   IVARI26.J)   =    IVARI26.J)    +  ISUMII) 

C 

C   STORE   MONEY  VALUES   IN   ARRAYS   FOR   REMAINING  ROUTINES. 


VAR I  1 , 

J) 

=  PRICF(J) 

VAR(2, 

J) 

=  PRIBD(J) 

VAR ( 3 , 

J) 

=  VAR(3,J) 

+ 

RETRN 

VAR ( 4 , 

J) 

=  VARI4.K) 

+ 

VAR I  3 , J ) 

VAR ( 5, 

J) 

=  CSTAC 

VAR (6, 

J) 

=  VAR 1 6 , K ) 

♦ 

VAR I  5 , J ) 

VAR(7, 

J) 

=  VAR I  7 , J ) 

+ 

CSTVL 

VAR 18, 

J) 

=  VAR ( 8 , K ) 

+ 

VAR I  7 , J ) 

VAR ( 9, 

J) 

=  VAR(5,J) 

+ 

VAR(7,J) 

VAR (10 

,  J 

=  VARI10, 

K) 

♦  VAR(9,J) 

VARlll 

,  J 

=  VARI3.J) 

-  VAR ( 9, J ) 

VAR( 12 

,  J 

=   VARI 12, 

K ) 

♦  VAR 1 11, 

J  I 

VAR( 13 

,  J 

=  GSVALC 

+ 

GSVALB 

VAR (14 

,  J 

=  VARI12, 

J) 

+  VARI13, 

J) 

RETURN 

END 

Subroutine  REPRT2 

SUBROUTINE  REPRT2 

C 

C   TO  REPORT  VALUES   COMPUTED   EACH  YEAR   OF  THE  SIMULATION. 
C  CONTAINS  NO   STATEMENTS   TO  RE   MODIFIED  TO  ADAPT   TO  OTHER  SPECIES. 

C 

COMMON  BATCH ( 3 ) ,FLAG1 , FLAG2, I  GAME,  I TEST, I  YEAR 

COMMON  AGEO, AGMRCH, ANBDF ( 181 ), ANCUVI 181) , BFMRCH , BFPC T , BF SAL V.CFPC 
1,C0MBF,C0MCU,CYCL,CYCNW(3),DBH0,DEN0,DESCR(5) , DLEV , G I DE , GNTR , 
2K0LI6)  ,NGAME.  NKOLS.NOYRS,  NS  P,  PRI  80(150),  PR  ICF(  150),  REGNO  I,  R  INT, 
3SITE,SPEC(5) ,SUMM(6,2  5,10),THIN,VLLV( 3 ) , EXTCU 

COMMON   BA, BAST, 8DFCI 180), BDFO ( 180 ) ,CFMC( 1 80 ) ,CF MO ( 1 80 ) ,CUFT,DBHT, 
101  AM (180! , FCTR, H I TE, JCYCL, NAGO, PRET, PROD, RE  ST, ROT A, STAND, VDM, 
2YS0MI 180! 

COMMON   ACCST , ANUL , BFCST , CLOSS , CPLT , CST AC, CSTVL , CTHN , CUC ST ,DE FOR , 
1 FMRCHD I  10 ) , GMNAM ( 3) , I  ACRE ( 180) ,  IALCUT, I PLNT , I VAR I  26 , 1 50) , 
2JVARI15.150)  , KOUNT , LAND, LAST, MALCUTI 1 0 ) , MOL D, N ACOS I  180) , 
3NACUNI 180) , NONSTK, PRIOIVI 10) , RATE, RETRN, VARI 14, 150),YRL0S 

COMMON  AGEOS I  1000  I , AGEUNI  10 00 1 , ANNET, CUTAGE, GSVALB .GSVALC , GVLBF , 
1GVLCU, ISUM( 18 ) , IYRM.KACR, LOSS , M I  X , MTHN , NSUM I  1 8 ) , RETHV , RE TTH , SCLOS 
2, SCPLT, SCTHN, TCOST, TRET ( 1000) , VBHV , VCHV, VLBF , VLCU 

C 

N  =   NOYRS   <■  1 
DO   ISO  MAC=1,5 

[ F ( M AC    .ED.    3   . AND.   REGNI2)    .EQ.   0.0)   GO  TO  180 

M  =  40 

00  175  J=l ,N 
LINE  =  J  -  1 
IFIM   . L  T .   401    GO   Tn  110 

M  =  0 

WRITE  (6,11 

1  FOR"AT    I 1H1,//,48X, 11HPAGE   TYPE  5) 
WRITE  (6,21 

2  FORMAT    (1H0,35X,36HSTATUS   OF   FOREST   AT   END  OF   EACH  YEAR) 
WRITE    (6,5)    ( BATCH! I  I ,  1  =  1, 3  I 

5   FORMAT    (1H   ,45X,7HBATCH  ,3A8) 

WRITE    (6,10)    I  TEST 
10  FORMAT    (1H   , 45X , 4HTEST , I  4  I 

WRITE    16,151    ( GMNAM ( I ) , I = 1, 3 ) 
15   F'TRMAT    (  1H   ,45X,6HGAME  ,3A8) 

WRITE    (6,20)    (DESCR ( I ), 1=1,5) 
20  FORMAT    (1H  ,45X,5A8) 

WRITE  (6,25) 
25   FORMAT   ( 1H  ) 

GO   TU    (30,50,67,70,90),  MAC 

C 

C   PRINT   FIRST   PAGE   OF   ANNUAL   RESULTS   ON   PAGE   TYPE  5. 

C 

30  WRITE  (6,35) 
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35  FORMAT    (IH   , 1 2X , 9HALL OWABLE , 5X , 7HCUTT I NG, 8X , 1 OHAC TUAL  CUT , 1  OX , 9HCU 
1MUL  CUT, 10X.9HGRSTK   VOL , 1 2X , 9HTOT AL   VOL ) 
WRITE  (6,40) 

40  FORMAT    (1H   , 2 X ,4HY E AR , 9X , 3HCUT , 1  OX , 3HAGE, 7X , 6HCU . F T . , 5X , 3HMBF , 6X ,  6 
1HCU.FT.,5X,3HMBF,6X,6HCU.FT.,5X,3HMBF,6X,6HCU.FT.,5X,3HMRF I 
WRITE  (6,45) 

45  FORMAT    (1H   , 1 5 X , 3H ( ] ) , 10X , 3H ( 2 ) . 8X . 3H ( 3 ) , 7X , 3H ( 4 ) , 7X , 3H ( 5 ) , 7X , 3H ( 6 
1),7X,3H(7),7X,3H(8),7X,3H(9I,6X,4H(10),//) 
GO  TO  110 

PRINT   SECOND  PAGE   OF   ANNUAL   RESULTS  OF  PAGE   TYPE  5. 
50  WRITE  (6,55) 

55  FORMAT    (1H   , 1 1 X , 3HN0N , 4 IX , 2 2HAGE  CLASSES,  OVERSTORY) 
WRITE  (6,60) 

60  FORMAT    ( 1H   , 2 X , 4HYF AR , 5X , 3HSTK , 1 14H       0-9      10-19     20-29     30-39  40 
1-49     50-59     60-69     70-79     80-89     90-99     100-109      110-119  120-129 
2   130-139  140-179) 
WRITE  (6,65) 

65   FORMAT    ( 1H   , 10X , 117HI 11 )        (12)      (13)        (14)        (15)        (16)  (17) 

1  (18)        (19)        (20)        (21)  (22)  (23)  (24)  (25) 

2  (26),//) 
GO  TO  110 

PRINT  THIRD   PAGE   OF   ANNUAL   RESULTS   OF   PAGE   TYPE  5. 

67  WRITE  (6,68) 

68  FORMAT ( 1 H   ,  1 1 X , 3HN0N , 40X , 2 3HAGE   CLASSES,  UNDERSTORY) 
WRITE  (6,601 

WRITE  (6,65) 
GO  TO  110 

PRINT   FOURTH   PAGE   OF   ANNUAL   RESULTS  OF  PAGE   TYPE  5. 
70  WRITE  (6,75) 

75   FORMAT    (1H   , 1 8 X , 1 4HSTUMP AGE   PRICE, 9X,15HSTUMPAGE    I NC OME , 1 3X , 1 OHAR E 
1A  COSTS, 15X, 12HV0LUME  COSTS) 
WRITE  (6,80) 

80  FORMAT    I 1H   , 2 X , 4HYE AR , 9X , 10H1 00  CU . FT . , 5X , 3HMBF , 6X , 6HANNUAL , 5 X , 9HC 
1 UMULATE0,6X,6HANNUAL,5X,9HCUMULATED, 6X,6H ANNUAL , 5X , 9HC UMUL ATE D ) 
WRITE  (6,85) 

85   FORMAT    (1H   , 1 8X , 4H ( 27 ) , 8X , 4H ( 28 ) , 6X , 4H ( 29 ) , 9X , 4H ( 30 ) , 9 X , 4H ( 3 1 ) , 9X  , 
14HI32 ) ,9X,4H( 33 ) ,9X,4H( 34 ) ,// ) 
GO  TO  110 

PRINT  FIFTH   PAGE   OF   ANNUAL   RESULTS  OF   PAGE   TYPE  5. 
90  WRITE  (6,95) 

95  FORMAT    ( IH   , 18x , 10HT0TAL   COST , 1 7X , 10HNET    INCOME , 13X, 13HCURRENT  VAL 
1UE,9X,5HT0TAL) 
WRITE  (6,100) 

100  FORMAT    (IH   , 2X , 4HYE AR , SX , 6HANNUAL , 5X , 9HCUMUL ATED , 7X , 6HANNUAL , 5X , 9H 
1CUMULATE0.7X, 13HGR0WING  STOCK , 7X , 9HNET  WORTH) 
WRITE  (6,105) 

105  FORMAT    (IH   , 1 5X ,4H ( 35 ) , 9X , 4H ( 36 ) , 10X , 4H( 37 ) , 9X , 4H ( 38  I , 1 3X , 4H ( 39 ) , 1 
14X.4HI40) ,// I 

WRITE   BODY  OF   EACH  TABLE. 

110  GO  TO   (115,125,133,135,145),  MAC 
115   WRITE    (6,120)    L  I  NE  ,  (  I  V  AR  (  I ,  J  I  ,  I  =  1 ,  10  ) 
120  FORMAT    (IH   , I  6 , 1  12 , I  1 3 , I  1 2, I  9 , 3 ( I  1 1 . I  a  I | 
GO  TO  160 

125   WRITE    (6,130)    LINE, ( IVAR( I ,  J ) , 1=11,26) 
130  FORMAT    (IH  ,16,217,16,817,18,419) 
GO  TO  160 

133   WRITE    (6,130)    LINE, IVAR( 11, J) , (JVAR( I, J) , 1=1, 15) 
GO  TO  160 

135  WRITE    16,140)    LINE, (VAR( I , J ), 1=1,8 ) 

140  FORMAT    ( IH   , I  6 , F 16 . 2 , F 1 1 . 2 , F 1 2 . 0 , F 1 1 . 0 , 2 ( F 1 5. 0, F 1 1 . 0 )  ) 
GO  TO  160 

145   WRITE    (6,150)    LINE, (VAR( I ,J ) , 1=9, 14) 
150  FORMAT    ( IH   , 1 6 , F 14 . 0 , F 12 . 0, F 1 5 . 0, F 12 . 0 , 2F 18 . 0 ) 
160   IFIJ   • LE ■    1)    GO  TO  165 
M  =   M  +  1 

IFILL   .LT.   10)   GO  TO  170 
165   WRITE  (6,25) 

LL   =  0 
170  LL  =  LL  +  1 
175  CONTINUE 
180  CONTINUE 

RETURN 

END 


Subroutine  WORTH 

SUBROUTINE  WORTH 

C 

C  TO  COMPUTE   PRESENT  VALUES   AND  RATES  EARNED. 

C  CONTAINS  NO   STATEMENTS  TO   EE   MODIFIED  TO   ADAPT   TO  OTHER  SPECIES. 
C 

COMMON  BATCH! 3) , FLAG1 , FLAG2, I  GAME , IT  EST, I  YEAR 

COMMON  AGEO, AGMRCH, ANBDF (181),ANCUV(181),BFMRCH,BFPCT,BFSALV,CFPCT 
1 ,C0MBF,C0MCU,CYCL,CYCNW(3),DBH0,DEN0,0ESCR(5) , DL EV , G I DE , GNTR , 
2K0LI6  1  ,NGAME,NKOLS , NOYRS , NS P , PR  I  BO ( 150),PRICF(150) , R  EGN  t 31 ,RINT, 
3SITE,SPEC(5),SUMM(6,25,10),THIN,VLLVI3),EXTCU 

COMMON  BA,BAST,BDFC(180),BOFO(180),CFMC(180),CFMO(1RO),CUFT,DBHT, 
101  AM (ISO)  , FCTR.H I TE, JCYCL.N AGO, PRET, PROO, REST , ROTA, STAND, VDM , 
2YSDMI180) 

COMMON  ACCST,ANUL,BFCST,CLOSS,CPLT,CSTAC,CSTVL,CTHN,CUCST,OEFOR, 
1 FMRCHD ( 1 0 ) , GMNAM ( 3 ) , I  ACRE ( 180) , I AL  CUT , I PLNT , I V AR ( 2 6, 1 5o ) , 


2JVAR(15,150),K0UNT,LAND,LAST,MALCUT(10), MOLD,NACOS( 180) , 
3NACUN  (180),NONSTK,PRIDIV(10),RATE,RETRN,VAR(14,150),YRLOS 

COMMON   AGE OS ( 1000 ) , AGEUNI 1UU0) , ANNET.CUTAGE .GSVALB .GSVALC ,GVLBF, 
lGVLCU,ISUM(l8),IYRM,KACR,LnSS,MIX,MTHN,NSUM(18),RETHV,RETTH,SCL0SS 
2,SCPLT,SCTHN,TC0ST,TRET(1000),VBHV,VCHV,VLBF,VLCU 

n I  MENS  I  ON  CRATE(20),OISC(20),DISG(20),nlSI(20),PREV(20),PWTH(20),R 
1ATI0(20,150) 

DO  1    1=1 ,20 
CRATE ( I )    =  0.0 


DISCI  I  )  = 

OISG(I)  = 

0 1  S I  (I  )  = 

PREV (  1  )  = 

1   PWTHI I )  = 

nn  5  i  =  i , 


o.o 

0.0 
0.0 
0.0 
0.0 

!0 


HO  5  J=l,150 
5   RATIO! I , J )   =  0.0 

COMPUTF   A   SERIES   OF   ALTERNATIVE   RATES . 

CRATE  II)    =  0.010 
00   10  1=1,19 
K  =   I   *■  I 
10  CRATE(K)    =   CRATE(I)    +  0.005 

COMPUTE   AN   INTEREST   TABLE   FOR  THE  PERIOD  NOYRS. 

DO   15  J=l,20 

FACTR  =   1.0  +   CRATE ( J ) 

DO  15  K-l , NOYRS 

YRS  =  K 

PRPN  =   ALOG ( FACTR)    *  YRS 
RATIO(J.K)    =  EXP(PRPN) 
15  CONTINUE 

DISCOUNT  GROWING   STOCK  VALUE   AT  NOYRS. 

DO  20   L=l ,20 
KL   =   NOYRS   +  1 

OtSG(L)    =   VARI13.KL)    /   RATIOIL, NOYRS) 
20  CONTINUE 

DISCOUNT  ANNUAL  COSTS   AND  RETURNS. 

DO  30  M=l,20 
PRESC   =  0.0 


SPRSC   =  0 


SPRSI 


0.0 


RAT  101 M,N ) 
R  AT  I  0  (  M,  N  ) 


DO  25   N=l , NOYRS 
I   =   N  +  1 

PRESC   =   VARI9.I  )  / 

PRFSI   =   VARI3.I)  / 

SPRSC   =   SPRSC   +  PRESC 

SPRSI    =   SPRSI    *  PRESI 
25  CONTINUE 

DISKM)    =  SPRSI 

UISCIM)    =  SPRSC 
30  CONTINUE 

COMPUTE   PRESENT   WORTH   AT   EACH  RATE. 

00   35  IJ=1,20 

PREVIIJ)    =   DISI(IJ)    +  DISGIIJ) 
PWTHIIJ)    =   PREVIIJ)   -  DISCIIJ) 
CRATEIIJ)    =   CRATE(IJ)    *  100.0 
35  CONTINUE 


VAR  I  13,  1  I 


SUMMARIZE   COMPUTATIONS   ON   PAGE   TYPE  6. 
WRITE  (6,40) 

40  FORMAT    I  1 H 1 , / / , 62X , 1 1 HPAGE  TYPE   6/ 1H0 , 52 X , 29HPR E SENT   WORTH  AND  RAT 
IF   EARNED ) 

WRITE    16,45)    I  BATCH!  I  ) , 1= 1, 3 ) 
45   FORMAT    (IH   ,52X,7HBATCH  ,3A8) 

WRITE    (6,50)  ITF.ST 
50  FORMAT    (IH   ,52X ,4HTEST , 14 ) 

WRITE  16,55)  ( GMNAM ( I }, 1=1,3) 
55   FORMAT    I IH   ,52X,6HGAME  ,3AS) 

WRITE    (6,60)    (DESCRII 1,1=1,51 
60  FORMAT    (IH  ,52X,5A«) 

WRITE    (6,65)  NOYRS 
65   FORMAT    (IH   , 52X , 1 5HYF  ARS   IN   PER loD , I  5 , // ) 

WRITF    (6,7S)  VAR(13,1) 
75   FORMAT    (IH    , 1 1 X , 33 HV ALUE   OF    INITIAL   GROWING  STOCK — l,F10.2,//> 

WRITE  (6,80) 

80  FORMAT    ( IH   , 5  7X  »  3 8 HV A LUES   DISCOUNTED  TO  PRESENT  (DOLLARS),/) 
WRITE  16,90) 

90  FORMAT    (IH   ,11X,8HC0M POUND, 14X,6HFUTURE, 34X, 5HST0CK, 36X, 3HNE T ) 
WRITE  (6,100) 

100  FORMAT    (IH   , 13X, 4HRATE, 15X, 7HGR0W INC, 15X, 3HALL, 17X .4HPLUS, 16X ,3HAL 
1L , 1 5X.7HPRESENT ) 
WRITE  (6,110) 

110  FORMAT    (IH   , 1 1 X , 9H ( PERCENT ) , 13X , 5HST0CK , 14X , 7H I NCOME S , 1 3X , 7H I NCOME 
1S,14X,5HC0STS, 15X, 5HW0RTH, / ) 
DO    130  1=1,20 

WRITE    (6,120)    CRATE  I  I ) ,DISG( I ) , OIS 1 1  I ) , PREv ( I ) , DISCI  I  ) , PWTHI  I  ) 
120   FORMAT    I1H   , 1 2X , F5 . 1 , 1 2X , 5 ( F 10 . 2, 10X ) , / ) 

130  CONTINUE 
R  F  TURN 
END 


33 


Subroutine  SUMRY 


SUBROUTINE  SUMRY 

TO  PRINT  SPECIFIED  COLUMNS  OF  PAGE  TYPE  5  AS  SUMMAR-Y  OF  RESULTS. 
CONTAINS   NO   STATEMENTS   TO   BE   MODIFIED  TO  ADAPT   TO  OTHER  SPECIES. 

COMMON   8ATCHI3) , FLAG1 , FLAG2 , I  GAME, I  TEST, I  YEAR 

COMMON  AGEO,AGMRCH,ANBOF(18l ) , ANCUVI 181),BFMRCH,8FPCT,BFSALV,CFPCT 
1 ,C0MBF,C0MCU,CYCL,CYCNW(3),DBH0,DEN0,DESCR< 5 ) , DL E V , G I DE , GNTR , 
2KOL(6),NGAME,NKOLS,NnYRS,NSP,PRlBD(150),PRlCF(150),REGN(3),RINT, 
3SITE,SPEC(5) ,SUMM(6,25, 1 0  )  ,  TH  I  N  ,  VL  LV  (  3  ) ,EXTCU 

COMMUN   BA, BAST, BDFCI 180), BDFOI 18  0 ) ,CFMC(180),CFMO(180),CUFT,DBHT, 
1DIAM1180) , FCTR.H I TE , JCYCL , NAGO, PRET, PROD, REST, ROTA, STAND, VDM, 
2YSDM ( 180) 

COMMON   ACCST, ANUL,BFCST,CLOSS,CPLT,CSTAC,CSTVL,CTHN,CUCST,DEFOR, 
IFMRChDI 10)  , GMNAM I  3 ) , I  ACRE ( 180) , I ALCUT, IPLNT, IVARI26,  150), 
2 JVAR (15,150)  ,KOU NT, LAND, LAST, MALCUTI 10  I , MOL D, NACOS ( 180) , 
3NACUN (180), N0NSTK.PRIDIVI10), RATE, RETRN, VAR (14,1 50 l.YRLOS 

COMMON   AGEOSI 1000) , AGEUN ( 1000) , ANNET , CUT AGE , GSV ALB , GSVALC , GVLBF , 
1GVLCU,ISUM(18) ,IYRM,KACR,LOSS,MIX,MTHN,NSUM( 18) , RE THV , R ET TH, SCLOS S 
2,SCPLT,SCTHN,TCOST,TRET(1000),VBHV,VCHV,VLBF,VLCU 

CONVERT    IVARU.J)    AND  VAR(I.J)    TO  SUMM(I,J,K)    AT   END  OF   EACH  GAME. 

L I M  =   10   ♦   NOYRS   /  10 
DO  20  I=1,NK0LS 
00   20  J=1,LIM 
K   =   KOLII  ) 

IFIJ   . GT .    10)    GO  TO  5 

JJ  =  J  U 

GO   TO  10 
5   JJ  =   10   *    (J   -   10)    +  1 
10   IF(K    .GT.    26)    GO  TO  15 

SUMM ( I , J , 1  GAME )    =  IVARlK.JJ) 

GO  TO  20 
15K=K— 26 

SUMM(I,J,1GAME)   =  VAR(K.JJ) 
20  CONTINUE 

WRITE    SUMMARY   TABLES   ON  PAGE   TYPE   7  WHEN   ALL   GAMES   ARE  FINISHED. 


I F ( I  GAME   .LT.   NGAME)    GO  TO  150 

WRITE   PAGE   HEADINGS  WITH  SEPARATE  PAGE  FOR   EACH  COLUMN  OF  REPRT2 
IDENTIFIED   IN  BASIS1. 

00   120  I=1,NK0LS 
WRITE  (6,30) 

30  FORMAT  ( 1H1 , / / , 54X , 1 1  HP AGE  TYPE  7 / 1H0 , 45X , 26HC0MP AR I  SON  OF  ALTERNA 
1TIVES) 

WRITE    (6,35)  (BATCH(N),N=1,3) 
35   FORMAT    (1H   ,  45X , 7HBATCH  ,3A8) 

WRITE    (6, AO)  ITEST 
40  FORMAT    (1H   »45X»4HTEST, 14) 

WRITE    (6,45)    (DESCR(N) ,N=1,5) 
45   FORMAT    I 1H  ,45X,5A8) 

K  =   KOL ( I  I 

WRITE    (6,50)  K 
50  FORMAT    (1H   , 45X, 8HC0LUMN  ,13,///) 

WRITE  (6,60) 

60  FORMAT  (1H  , 5 X , 4HYE AR , 6X , 6HGAME  1 , 6X , 6HGAME  2,6X,6HGAME  3,6X,6HGAH 
IE  4,6X,6HGAME  5,6X,6HGAME  6 , 6X , 6HGAME  7,6X,6HGAME  8,6X,6HGAME  9,6X 
2 , 7HGAME  10,//) 

M  =  0 

WRITE   SUMM(I,J,KI    FOR   EACH  OF   FIRST   10  YEARS   AND  FOR   END   EACH  DECADE. 

DO   120  J=l,25 

IFIJ   .GT.    10)   GO   TO  70 

J  J  =  J 

GO  TO  80 
70   JJ   =   10   *   (J   -  10) 
80   IFIM   .LT.   51   GO   TO  100 

WRITE  (6,90) 
90   FORMAT    (1H  ,//> 

M  =  0 

100  WRITE    (6,110)    JJ, I SUMMI I , J,L ) ,L=1,10) 
110  FORMAT    I1H   ,  I  9 , F 1 1 . 0 , 9F1 2 .0 ) 
120   M  =   M  +  1 
150  RETURN 
END 
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Appendix  2:    Output  of  MANGD2 


PAGF   TYPE  1 

YIELDS   PER   ACRE   OF   MANAGED,    EVEN-AGED   STANDS  OF   BLACK  HILLS   PONDEROSA  PINE 
SITE   INDEX      70,      20-YEAR  CUTTING  CYCLE 
THINNING   L  EVELS  =    INITIAL   -      120.,    SUBSEQUENT  -  100. 


ENTIRE   STAND   BEFORE   AND   AFTER  THINNING 


PERIODIC    INTERMEDIATE  CUTS 


STAND 
AGE 
(YEARS) 

30. 
10. 


TREES 
NO. 


950 
46  3 


BASAL 
AREA 
SQ.FT. 

119 
79 


AVERAGE 
D.B.H. 
IN. 

4.8 
5.6 


AVERAGE 
HEIGHT 
FT. 

25 
26 


TOTAL 
VOLUME 
CU.FT. 

1188 
849 


MERCHANT- 
ABLE VOLUME 
CU.FT. 

309. 
309. 


SAWT  IMBER 
VOLUME 
MDF 

o.noo 

0.000 


TREES 
NO. 


BASAL 
AREA 
SO. FT. 


TOTAL 
VOLUME 
CU.FT. 


MERCHANT- 
ABLE VOLUME 
CU.FT. 


SAWT IMBER 
VOLUME 
MBF 


50. 
50. 


70. 
70. 


44  9 
251 


246 
160 


134 

92 


134 
100 


7.4 

8.2 


10.0 
10.7 


45 
51 
58 


2408 
1701 


3200 
2456 


1848. 
1443. 


2964. 
2294. 


.900 
.900 


7.630 
6.310 


90. 
90. 


160 
105 


134 
100 


12.4 
13.2 


4017 
3030 


3786. 
2867. 


15.  120 
12.010 


110. 
110. 


105 

32 


131 

49 


15.1 
16.8 


80 
83 


4468 
1734 


4255. 
1659. 


20.410 
8.400 


130. 
130. 


32 
10 


68 

25 


19.7 
21.3 


86 
87 


2581 
964 


2485  . 
931. 


14.210 
5.530 


THIS  TABLE   SHOWS  VALUES  FOR   SEED  TREE   OR   SHELTERWOOD  CUTTING  WITH  TIMING  AND   AMOUNTS   SPECIFIED  PREVIOUSLY. 
MERCH .   CU.   FT.   -   TREES  6.0   INCHES   D.B.H.    AND  LARGER   TO  4-INCH  TOP . 
BD.    FT.   -   TREES   10.0   INCHES   D.B.H.    AND  LARGER   TO   8-INCH  TOP. 


PAGE   TYPE  2 

GROWING  STOCK  OF   MANAGED  BLACK  HILLS   PONDEROSA  PINE 
SITE   INDEX      70.,      20. -YEAR  CUTTING  CYCLE 
DENSITY  LEVEL-   120.   AND  100. 

VOLUMES   PRESENT   PER   ACRE   AT   END  OF   EACH  YEAR 
MERCHANTABLE   CUBIC  FEET 


0 

0. 

0 

0. 

0 

0.0 

0.0 

0.0 

1 

0. 

0 

0.0 

0.0 

b.o 

0.0 

2 

0. 

0 

0. 

0 

0.0 

0.0 

0.0 

3 

309. 

0 

376. 

2 

443.4 

510.6 

577.8 

4 

981. 

0 

1067. 

7 

1154.4 

1241.1 

1327.8 

5 

1443. 

0 

1517. 

9 

1592.8 

1667.7 

1742.6 

6 

2192. 

0 

2269. 

2 

2346.4 

2423.6 

2500.8 

7 

2294. 

0 

2367. 

9 

2441 .8 

2515.7 

2589.6 

8 

3033. 

0 

3108. 

3 

3183.6 

3258.9 

3334.2 

9 

2867. 

0 

2936. 

1 

3005.2 

3074.3 

3143.4 

10 

3558. 

0 

3627. 

7 

3697.4 

3767. 1 

3836.8 

11 

1659. 

0 

1699. 

4 

1739.8 

1780.2 

1820.6 

12 

2063. 

0 

2105. 

2 

2147.4 

2189. 6 

2231.8 

13 

931. 

0 

953. 

0 

975.0 

997.  0 

1019.0 

14 

1151. 

0 

THOUSANDS   OF  BOARD 


0. 

0 

0. 

0 

0. 

0 

0.0 

0. 

0 

0. 

0 

0. 

0 

0. 

0 

0.0 

0. 

0 

0. 

0 

0. 

0 

0.0 

0.0 

0. 

0 

645. 

0 

712. 

2 

779.4 

846.6 

913. 

8 

1414. 

5 

1501. 

2 

1587. 

9 

1674.6 

1761. 

3 

1817.5 

1892. 

4 

1967. 

3 

2042.2 

2117. 

1 

2578. 

0 

2655. 

2 

2732. 

4 

2809.6 

2886. 

8 

2663. 

5 

2737. 

4 

2811  . 

3 

2885.2 

2959. 

1 

3409. 

5 

3484.8 

3560. 

1 

3635.4 

3710. 

7 

3212. 

5 

3281. 

6 

3350. 

7 

3419.8 

3488. 

9 

3906. 

5 

3976. 

2 

4045. 

9 

4115.6 

4185. 

3 

1861. 

0 

1901. 

4 

1941. 

8 

1982.2 

2022. 

6 

2274. 

0 

2316. 

2 

2358. 

4 

2400.6 

2442. 

8 

1041. 

0 

1063. 

0 

1085. 

0 

1107.0 

1129. 

0 

0 

0 

.000 

0 

.000 

0 

000 

0 

000 

0 

000 

0 

000 

0. 

000 

0 

000 

0. 

000 

0 

000 

1 

0 

.000 

0 

.000 

0 

000 

0 

000 

0 

000 

0 

000 

0. 

000 

0 

000 

0. 

000 

0 

000 

2 

0 

.000 

0 

.000 

0 

000 

0 

000 

0 

000 

0 

000 

0. 

000 

0 

000 

0. 

000 

0 

000 

3 

0 

.000 

0 

.000 

0 

000 

0 

000 

0 

000 

0 

000 

0. 

000 

0 

000 

0. 

000 

0 

000 

4 

0 

.000 

.090 

180 

270 

360 

450 

540 

630 

720 

810 

5 

.900 

1 

.186 

1 

472 

1 

758 

2 

044 

2 

330 

2. 

616 

2 

902 

3. 

188 

3 

474 

6 

3 

.760 

4 

.147 

4 

534 

4 

921 

5 

308 

5 

695 

6. 

082 

6 

469 

6. 

856 

7 

243 

7 

6 

.810 

7 

.317 

7 

824 

8 

331 

8 

838 

9 

345 

9. 

852 

10 

359 

10. 

866 

11 

373 

8 

11 

.880 

12 

.204 

12 

528 

12 

852 

13 

176 

13 

500 

13. 

824 

14 

148 

14. 

472 

14 

796 

9 

12 

.010 

12 

.417 

12 

824 

13 

231 

13 

638 

14 

045 

14. 

452 

14 

859 

15. 

266 

15 

673 

10 

16 

.080 

16 

.513 

16 

946 

17 

379 

17 

812 

18 

245 

18. 

678 

19 

111 

19. 

544 

19 

977 

11 

8 

.400 

8 

.677 

8 

954 

9 

231 

9 

508 

9 

785 

10. 

062 

10 

339 

10. 

616 

10 

893 

12 

11 

.170 

11 

.474 

11 

778 

12 

082 

12 

386 

12 

690 

12. 

994 

13 

298 

13. 

602 

13 

906 

13 

5 

.530 

5 

.703 

5 

876 

6 

049 

6 

222 

6 

395 

6. 

568 

6 

741 

6. 

914 

7 

087 

35 


PAGE   TYPE  3 


ALTERNATIVES   FOR   THIS  GAME 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME  EQUAL  AREAS  CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 


NUMBER  OF  YEARS   PER   GAME  30 


CRITICAL  PRICES 
ALLOWABLE  CUT 
MINIMUM  CUTTING  AGE 


99.00 
8 

110. 


0.00 
0 

0. 


0.00 

0 

0. 


0.00 

0 

0. 


0.00 

0 

0. 


0.00 

0 

0. 


0.00 

0 

0. 


0.00 
0 

0. 


0.00 
0 

0. 


0.00 

0 

0. 


ACRES  IN  WORKING  CIRCLE  885 
MINIMUM   VALUES   FOR    INCLUSION   IN  TOTALS 


COSTS   IN   FIRST   YEAR   OF  GAME 
PER   ACRE  (ANNUAL) 
PER   100  CU.    FT.  HARVESTED 


.20 
.05 


AGE,  FOR 

GROWING  STOCK 

<V0. 

PER  M   BO.  FT. 

1.S6 

M   BD.  FT 

.,   FOR  GROWING  STOCK 

1. 

5 

THIN  ONE  ACRE 

25.00 

CU.  FT., 

FOP   COMMERCIAL  CUT 

300. 

PLANT   ONE  ACRE 

30.00 

M   BD.  FT 

. ,   FOR  COMMERCIAL  CUT 

1. 

5 

CLEANUP  OF   ONE  ACRE 

25.00 

M   BD.  FT 

.,    FOR  SALVAGE 

1. 

5 

RATE  OF   INCREASE    IN  COSTS 

.01 

CU.  FT. 

IN   SAW  LOG  CUT 

100. 

ACRES   PLANTED  ANNUALLY 
PERCENT   OF   ACRES   LOST  ANNUALLY 


PSEUDORANDOM  NUMBER  GENERATOR 


21.0 
2222.0 


RELATIVE   VALUE   OF    INTERMEDIATE  CUTS 

STUMPAGE  PRICE,  CU.  FT.  1.00 
STUMPAGE   PRICE,    BD.   FT.  .85 


PAGE   TYPE  <> 

DISTRIBUTION  OF   OVERSTORY   ACRES   BY  AGE 
BATCH      SHELTERWOOD  TEST 
TEST  1 

GAME     EQUAL   AREAS   CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 
YEAR   WITHIN   GAME  0 


AGE (  YE  AR  ) 


AGE ( DECADE) 

0 

1 

2 

3 

A 

5 

6 

7 

8 

9 

TOTAL 

0 

5 

0 

0 

0 

0 

0 

C 

0 

0 

0 

5 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

P. 

R 

8 

8 

8 

8 

8 

8 

8 

8 

80 

i, 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

80 

5 

3 

8 

n 

8 

8 

8 

3 

8 

8 

8 

80 

b 

8 

8 

8 

a 

8 

8 

8 

8 

8 

8 

80 

7 

8 

8 

8 

fl 

8 

8 

8 

8 

8 

8 

80 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

80 

9 

8 

8 

8 

8 

3 

8 

8 

8 

8 

8 

80 

10 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

80 

11 

3 

8 

8 

a 

8 

8 

8 

8 

8 

8 

80 

12 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

80 

13 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

16 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

17 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

36 


PAGE   TYPE  4 


DISTRIBUTION  OF   UNOERSTORY   ACRES   BY  AGF 
BATCH     SHELTERWOOD  TEST 
TEST  I 

GAME     EQUAL   AREAS  CUT  ANNUALLY 
MANAGED,    THINNED   AT   AGF  30. 
YEAR  WITHIN  GAME  0 

AGE (YEAR ) 

AGE  I  DECADE  )  0123456789  TOTAL 

0  653                888881888  725 

1  8888888888  80 

2  8888888888  80 

3  OOOOOOOCOO  0 

4  0000000000  0 

5  0000000000  0 

6  0000000000  0 

7  0000000000  0 

8  0000000000  0 

9  0000000000  0 

10  0000000000  0 

11  0000000000  0 

12  0000000000  0 

13  0000000000  0 

14  0000000000  0 

15  0000000000  0 

16  0000000000  0 

17  0000000000  0 


AGE ( DECADE  I 


PAGE   TYPE  4 

DISTRIBUTION  OF   OVERSTORY   ACRES   BY  AGE 
BATCH     SHELTtRWOOD  TEST 
TEST  I 

GAME     EQUAL   AREAS   CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 
YEAR   WITHIN   GAME  30 


0  0100100100  3 

1  1001010010  4 

2  0                1                0                0                11                1                1                1                1  7 

3  9888888888  81 

4  8888883888  80 

5  8888888888  80 

6  8888388883  80 

7  3888888688  78 

8  8888388888  80 

9  8877888888  78 
10  8888883877  78 
U  8888838888  80 

12  8888778888  78 

13  8683888333  78 

14  0000000000  0 

15  0000000000  0 

16  0000000000  0 

17  0                000000000  0 
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PAGE   TYPE  4 


AGE ( DECADE ) 


DISTRIBUTION  OF  UNDERS TORY   ACRES   BY  AGE 
BATCH     SHELT ERWOOD  TEST 
TEST  1 

GAME      EQUAL   AREAS   CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 
YEAR  WITHIN   GAME  30 


0  664  788788788  733 

1  7887868878  75 

2  87887887-88  77 

3  0000000000  0 

4  0000000000  0 

5  0000000000  0 

6  0000000000  0 

7  0000000000  0 

8  0000000000  0 

9  0000000000  0 

10  0000000000  0 

11  0000000000  0 

12  0000000000  0 

13  0000000000  0 

14  0000000000  0 

15  0000000000  0 

16  0000000000  0 

17  0000000000  0 


STATUS   OF   FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME  EQUAL  AR  FAS  CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 


ALLOWABLE 

CUTTING 

ACTUAL 

CUT 

CUMUL 

CUT 

GR  STK 

VOL 

TOTAL 

VOL 

EAR 

CUT 

AGE 

CU.FT. 

MBF 

CU.FT. 

MBF 

CU.FT. 

MBF 

CU.FT. 

MBF 

(  1  1 

(2) 

(3) 

(4) 

I  5  ) 

1  6) 

(7) 

(8) 

(9) 

I  10) 

0 

0 

0 

0 

0 

0 

0 

146122 

7210 

146122 

7210 

1 

8 

110 

12179 

248 

12179 

248 

146122 

7210 

158301 

7458 

2 

B 

1  10 

12179 

248 

24358 

496 

146122 

7210 

170480 

7706 

3 

7 

110 

11873 

254 

36231 

750 

146122 

72  04 

182353 

7954 

4 

8 

110 

12180 

249 

48411 

999 

146122 

7204 

194533 

8203 

5 

8 

110 

12180 

249 

60591 

1248 

146122 

7203 

206713 

8451 

6 

7 

110 

11874 

256 

72465 

1504 

146122 

7195 

218587 

8699 

7 

8 

110 

12181 

249 

84646 

1753 

146122 

7194 

230768 

8947 

8 

8 

110 

12181 

249 

96827 

2002 

146122 

7192 

242949 

9194 

9 

7 

1 10 

11876 

251 

108703 

2253 

146122 

7189 

254825 

9442 

10 

8 

1  10 

12180 

249 

120883 

2502 

146122 

7187 

267005 

9689 

11 

B 

110 

12180 

249 

133063 

2751 

146122 

7186 

279185 

9937 

12 

7 

110 

11874 

242 

144937 

2993 

146122 

7191 

291059 

10184 

13 

8 

110 

12181 

249 

157118 

3242 

146122 

71  89 

303240 

10431 

14 

8 

no 

12181 

249 

169299 

3491 

146122 

7187 

315421 

10678 

15 

7 

1  10 

11876 

257 

18  1175 

3748 

146122 

7177 

327297 

10925 

16 

8 

110 

12183 

249 

193358 

3997 

146122 

7175 

339480 

11172 

17 

7 

110 

11876 

242 

205234 

4239 

146122 

7179 

351356 

11418 

18 

8 

110 

12183 

249 

217417 

4488 

146122 

7176 

363539 

11664 

19 

8 

1  10 

12183 

249 

229600 

4737 

146122 

7173 

375722 

11910 

20 

7 

110 

11877 

244 

241477 

4981 

146122 

7176 

387599 

12157 

21 

8 

110 

12184 

250 

253661 

5231 

146122 

7172 

399783 

12403 

22 

8 

110 

12184 

250 

265845 

5481 

146122 

7169 

411967 

12650 

23 

7 

110 

10397 

240 

276242 

5721 

146122 

7177 

422364 

12898 

24 

8 

no 

12185 

250 

288427 

5971 

146122 

7173 

434549 

13144 

25 

8 

110 

12185 

250 

300612 

6221 

146122 

7168 

446734 

13389 

26 

7 

110 

11738 

244 

312350 

6465 

146122 

7170 

458472 

13635 

27 

8 

110 

12187 

247 

324537 

6712 

146122 

7168 

470659 

13880 

28 

8 

110 

12187 

247 

336724 

6959 

146122 

7167 

482846 

14126 

29 

7 

110 

11739 

249 

348463 

7208 

146122 

7163 

494585 

14371 

30 

a 

1  10 

12188 

250 

360651 

7458 

146122 

7157 

506773 

14615 

38 
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STATUS   OF   FOREST   AT   END  OF  EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     EQUAL   AREAS   CUT  ANNUALLY 
MANAGED,   THINNED  AT   AGE  30. 

AGE  CLASSES,  OVERSTORY 


YEAR 

STK 

0-9 

10-19 

20-29 

30—39 

40  —  49 

50  —  59 

60-69 

70-79 

80-  89 

90-99 

1 00- 1 09 

110-119 

120-129 

130-1 39 

140-17 

(11) 

(12) 

(13) 

(  14) 

(  15) 

(  16) 

(  17) 

(18) 

(  19) 

(20) 

121  ) 

(22) 

(23) 

(24) 

(25) 

1  261 

0 

5 

0 

0 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

0 

1 

5 

0 

0 

80 

8  0 

80 

80 

80 

80 

80 

80 

8  0 

80 

80 

0 

2 

5 

0 

0 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

0 

3 

6 

0 

0 

80 

80 

80 

80 

80 

80 

80 

79 

80 

80 

80 

0 

4 

6 

0 

0 

80 

80 

80 

80 

80 

80 

80 

79 

80 

80 

80 

0 

5 

1 

6 

0 

0 

80 

80 

80 

80 

80 

80 

80 

79 

80 

80 

80 

0 

6 

7 

0 

0 

80 

80 

80 

80 

80 

80 

80 

78 

30 

80 

80 

0 

7 

I 

7 

0 

0 

80 

80 

80 

80 

80 

80 

80 

78 

80 

80 

80 

0 

8 

7 

0 

0 

80 

80 

80 

80 

80 

80 

80 

78 

80 

80 

80 

0 

9 

i 

8 

0 

0 

80 

80 

80 

80 

80 

79 

80 

80 

7  8 

8  0 

80 

0 

10 

7 

L 

0 

80 

80 

80 

80 

80 

79 

80 
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3 
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PAGE  TYPE  5 

STATUS   OF  FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     EQUAL   AREAS  CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 

AGE   CLASSES,  UNDERSTORY 


EAR 

STK 

0-9 

10-19 

20-29 

30-39 

40-49 

50-59 

60-69 

70-79 

80-89 

90-99 

100-109 

110-119 

120-129 

130-139 

140-179 

1  11  ) 

(12) 

(13) 

(14) 

( 15) 

(  16) 

(  17) 

(  18) 

(  19) 

(20) 

(21  ) 

(22) 

(23) 

(24) 

(  25) 

(26) 

0 

5 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

4 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

3 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

3 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

2 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

5 

1 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

6 

1 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7 

0 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

8 

0 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

9 

1 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

10 

0 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

11 

0 

72  5 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

12 

1 

725 

80 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

13 

0 

726 

79 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

14 

0 

726 

79 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 

1 

726 

79 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

16 

0 

727 

78 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

17 

1 

727 

78 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

18 

0 

727 

78 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

19 

0 

728 

77 
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0 

0 

0 

0 

0 

0 

0 

20 

1 

728 

77 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

21 

0 

728 

77 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

22 

0 

729 

76 

80 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

23 

1 

729 

77 

79 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

24 

0 

729 

77 

79 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

25 

0 

731 

75 

79 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

26 

1 

731 

76 

78 

0 
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0 
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.STATUS   OF   FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     EQUAL   AREAS  CUT  ANNUALLY 
MANAGED,   THINNED  AT   AGE  30. 

STUMPAGE   PRICE  STUMP  AGE   INCOME  AREA  COSTS  VOLUME  COSTS 

100  CU.FT.  MBF  ANNUAL  CUMULATED  ANNUAL  CUMULATED  ANNUAL  CUMULATED 

(271  (28)  (29)  (30)  (31)  (32)  (33)  (34) 


2.50 


14.50 


1 

2 
3 
4 
5 
6 
7 
8 
9 
10 


2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 


15.20 
17.80 
16.80 
13.40 
14.10 
17.40 
11.80 
11.10 
12.20 
1  2.90 


4025. 
4661. 
446  1. 
3588. 
3759. 
4634. 
3199. 
3027. 
3290. 
3465. 


4025. 

8686. 
13147. 
16735. 
20494. 
25128. 
28327. 
31354. 
34644. 
38110. 


407. 
411. 
415. 
419. 
424. 
428. 
432. 
404. 
408. 
445. 


407. 

818. 
1233. 
1653. 
2076. 
2504. 
2936. 
3340. 
3748. 
4193. 


394. 
398. 
411. 
406. 
410. 
426. 
419. 
423. 
431. 
431. 


394. 

791. 
1202. 
1608. 
2018. 
2444. 
2863. 
3286. 
3717. 
4148. 


11 

12 
13 
14 
15 
16 
17 
18 
19 
20 


2.50 
2.50 
2.50 


10.10 
8.30 
9.00 
10.90 
13.90 
13.10 
11.90 
12.70 
15.70 
13.60 


2779. 
2271  . 
2512. 
2978. 
3776. 
3522. 
3127. 
3423. 
4160. 
3548. 


40889. 
43160. 
45672. 
48651. 
52426. 
55948. 
59075. 
62498. 
66658 . 
70207. 


416. 
421. 
459. 
429. 
433. 
473. 
442. 
482. 
451. 
455. 


4610. 
5031. 
5489. 
5918. 
6352. 
6824. 
7266. 
7748. 
8199. 
8655. 


435. 
429. 
445. 
449. 
468. 
459. 
450. 
468. 
472. 
467. 


4583. 
5012. 
5456. 
5906. 
6373. 
6832. 
7282. 
7750. 
8222. 
8689. 


21 
22 
23 
24 
25 
26 
27 
28 
29 
30 


2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 


12.10 
15.20 
16.10 
16.70 
19.60 
18.50 
14.70 
15.50 
17.10 
13.00 


3279. 
4042. 
4030. 
4415. 
5129. 
4697. 
3888. 
4083. 
4437. 
3512. 


734B6. 

77528. 

81558. 

85973. 

91102. 

95799. 

99687. 
103770. 
108207. 
111719. 


497. 
465. 
469. 
512. 
479. 
483. 
527. 
493. 
498. 
577. 


9151. 

9616. 
10085. 
10597. 
11075. 
11559. 
12086. 
12579. 
13077. 
11654. 


483. 
487. 
472. 
498. 
503. 
496. 
507. 
512. 
521. 
529. 


9171. 

9659. 
10130. 
10628. 
11131. 
11626. 
12133. 
12645. 
13166. 
13696. 


PAGE   TYPE  5 

STATUS   OF   FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     EQUAL   AREAS  CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 

TOTAL  CUST  MET    INCOME  CURRENT  VALUE  TOTAL 

ANNUAL  CUMULATED  ANNUAL  CUMULATED  GROWING   STOCK  NET  WORTH 

(35)  (36)  (37)  (38)  (39)  (40) 


96878. 


96878. 


801. 
809. 
826. 
825. 
834. 
853. 
851. 
827. 
839. 
876. 


801  . 
1609. 
2435. 
3261. 
4094. 
4948. 
5799. 
6626- 
7465. 
8341. 


3224. 
3852. 
3635. 
2762. 
2926. 
3780. 
2348. 
2200. 
2451  . 
2589. 


3224. 

7076. 
10711. 
13474. 
1640C. 
20180. 
22528. 
24726. 
27179. 
29768. 


101925. 
120557. 
113145. 

B8527. 

93444. 
116972. 

76547. 

71378. 

79131. 

84028. 


105149. 
127634. 
123856. 
102001 . 
109843. 
137152. 

99075. 

96107. 
106310. 
113796. 


11 
12 
13 
14 
15 
16 
17 
18 
19 
20 


852. 
849. 
903. 
878. 
901. 
931. 
892. 
950. 
923. 
922. 


9193. 
10042 . 
10946. 
11824. 
12725. 
13656. 
14548. 
15498. 
16421 . 
17343. 


1927. 
1422. 
1609  . 
2100. 
2875. 
2591. 
2234. 
2474. 
3237. 
2626. 


31696. 
3311B. 
34727. 
36827. 
39702 . 
42292. 
44527. 
47000. 
50237. 
52863. 


63770. 
50744. 
55637. 
69151. 
90464. 
84561 . 
75865. 
81443. 
102798. 
87631. 


95466. 

83862. 

90364. 
105978. 
130165. 
126853. 
120391. 
12B443. 
153035. 
140494. 


21 

22 
23 
24 
25 
26 
27 
28 
29 
30 


979. 

952. 

941  . 
1009. 

981  . 

979. 
1034. 
1005. 
1019. 
1106. 


18323. 
19275. 
20215. 
21225. 
22206. 
23185. 
24219. 
25225. 
26244. 
27350. 


2300. 
3090. 
3090. 
3406. 
4147. 
3718  . 
2854. 
3078. 
3418. 
2406  . 


55163. 
58253. 
61343 . 
64740. 
68896 . 
72614. 
75467. 
78545. 
81963. 
8436') . 


76695. 

98745. 
105173. 
109277. 
129861. 
121859. 

94448. 
100013. 
111275. 

81699. 


131859. 
156998. 
166516. 
174025. 
198757. 
194473. 
169915. 
178558. 
193238. 
166068. 
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PRESCNT   WORTH  AND  RATE  EARNED 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME      EQUAL   AREAS  CUT  ANNUALLY 
MANAGED,    THINNED  AT   AGE  30. 
YEARS    IN  PERIOD  30 


VALUE   OF    INITIAL   GROWING   STOCK — t  96877.59 


VALUES   DISCOUNTED  TO   PRESENT  (DOLLARS) 


COMPOUND 

RATE 
(PERCENT) 

1.0 

1.5 

2.0 

2.5 

3.0 

3.5 

4.0 

4.5 

5.0 

5.5 

6.0 

6.5 

7.0 

7.5 

8.0 

8.5 

9.0 

9.5 
10.0 
10.5 


FUTURE 
GROWING 
STOCK 

60614.17 

52267.79 

45103.50 

38949. 28 

33658.80 

29107.50 

25189.25 

21813.57 

18903.25 

16392.36 

14224.58 

12351.71 

10732.53 

9331.71 

8119.00 

7068.43 

6157.73 

5367.74 

4682.04 

4086.46 


ALL 

INCOMES 

95822.44 
89061.09 
82970.09 
77472. 88 
72502.45 
68000.03 
63914.01 
60199.03 
56815. 16 
53727.21 
50904.11 
48318.42 
45945. e7 
43764.95 
41756.58 
39903.81 
38191.57 
36606.46 
35136.49 
33771.00 


STOCK 
PLUS 
INCOMES 

156436.61 

141328.88 

128073.59 

116422. 16 

106161.26 

97107.53 

89103.26 

82012.60 

75718.41 

70119.57 

65128.69 

60670.13 

56678.40 

53096. 67 

49875.58 

46972.24 

44349. 30 

41974.20 

39818.53 

37857.46 


ALL 

COSTS 

23367.41 
21671.91 
20143.59 
18763.50 
17515.01 
16383.54 
15356.29 
14421.98 
13570.71 
12793.71 
12083.26 
11432.53 
10835.45 
10286.67 
9781.43 
9315.48 
8885.06 
8486.81 
8117.72 
7775.12 


NET 
PRESENT 
WORTH 

36191.62 

22779.39 

11052.40 

781.07 

-8231.34 

-16153.59 

-23130.61 

-29286.97 

-34729.89 

-39551.73 

-43832. 16 

-47639.98 

-51034.63 

-54067.59 

-56783.43 

-59220.82 

-61413.34 

-63390.19 

-65176.78 

-66795.25 


PAGE  TYPE  3 

ALTERNATIVES   FOR  THIS  GAME 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY  CUT  WITH  PRICE 
MANAGED.    THINNED  AT   AGE  30. 


NUMBER  OF  YEARS   PER  GAME  30 


CRITICAL   PRICES  12.00  15.00  99.00  0.00  0.00  0.00  0.00  0.00  0.00  0.00 

ALLOWABLE  CUT  58  12  0000000 

MINIMUM   CUTTING  AGE  110.  110.  110.  0.  0.  0.  0.  0.  0.  0. 


ACRES    IN   WORKING  CIRCLE  885 

MINIMUM   VALUES  FOR   INCLUSION   IN  TOTALS 

AGE ,    FOR  GROWING   STOCK  40. 

M   BD.   FT.,    FOR  GROWING   STOCK  1.5 

CU.    FT.,   FOP   COMMERCIAL   CUT  300. 

M  BD.   FT.,   FOR   COMMERCIAL  CUT  1.5 

M  BD.   FT.,    FOR   SALVAGE  1.5 

CU.    FT.    IN   SAW  LOG  CUT  100. 


COSTS    IN   FIRST  YEAR  OF  GAME 

PER   ACRE    (ANNUAL)  .20 

PER    100  CU.    FT.   HARVESTED  .05 

PER  M   BD.    FT.  1.56 

THIN  ONE   ACRE  25.00 

PLANT   ONE   ACRE  30.00 

CLEANUP  OF   ONE   ACRE  25.00 

RATE   OF    INCREASE    IN  COSTS  .01 


ACRES   PLANTED  ANNUALLY 

PERCENT   OF   ACRES  LOST  ANNUALLY 


PSEUDORANDOM  NUMBER  GENERATOR 


21.0 
2222.0 


RELATIVE   VALUE   OF    INTERMEDIATE  CUTS 

STUMPAGE  "RICE,  CU.  FT.  1.00 
STUMPAGE   PRICE,   BD.   FT.  .85 
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DISTRIBUTION  OF  OVERSTORY   ACRES  BY  AGE 
BATCH     SHELTERWOOO  TEST 
TEST  I 

GAME      VARY  CUT  WITH  PRICE 
MANAGED,    THINNED  AT   AGE  30. 
YEAR  WITHIN   GAME  0 

AGE (YEAR  ) 

AGE  t  DECADE )  01234567B9  TOTAL 

0  5000000000  5 

1  0000000000  0 

2  0000000000  0 

3  88S8888888  80 

4  8888888888  80 

5  8888888888  80 

6  8888888888  80 

7  8888888888  80 

8  8888888888  80 

9  8888888888  80 

10  3888888888  80 

11  8888888888  80 

12  8888888888  80 

13  8888888888  80 

14  0000000000  0 

15  0000000000  0 

16  0000000000  0 

17  0000000000  0 


PAGE   TYPE  4 

DISTRIBUTION  OF  UNDERSTORY  ACRES  BY  AGE 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY  CUT  WITH  PRICE 
MANAGED,    THINNED  AT  AGE  30. 
YEAR   WITHIN  GAME  0 

AGE (YEAR ) 

AGE  ( DECADE )  0123456789  TOTAL 

0  653                888888888  725 

1  8888888888  80 

2  8888888888  80 

3  0000000000  0 

4  0000000000  0 

5  0000000000  0 

6  OOOOOOOOOO  0 

7  OOOOOOOOOO  0 

8  OOOOOOOOOO  0 

9  OOOOOOOOOO  0 

10  OOOOOOOOOO  0 

11  OOOOOOOOOO  0 

12  OOOOOOOOOO  0 

13  OOOOOOOOOO  0 

14  OOOOOOOOOO  0 

15  OOOOOOOOOO  0 

16  OOOOOOOOOO  0 

17  OOOOOOOOOO  0 
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PAGE   TYPE  4 


DISTRIBUTION  OF  OVERSTORY   ACRES  BY  AGE 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY  CUT   WITH  PRICE 
MANAGED,   THINNED  AT  AGE  30. 
YEAR  WITHIN   GAME  30 

AGE! YEAR ) 

AGE(DECADE)                 0123456789  TOTAL 

0  0100100100  3 

1  1001010010  4 

2  0100111111  7 

3  9B88888888  81 

4  8888888888  80 

5  8888888888  80 

6  8888888888  80 

7  8888888688  78 

8  8888888888  80 

9  8877888888  78 

10  8888888877  78 

11  8888888888  80 

12  8888778888  78 

13  8688888888  78 

14  0000000000  0 

15  0000000000  0 

16  0000000000  0 

17  0000000000  0 


PAGE   TYPE  4 

DISTRIBUTION  OF  UNDERSTORY  ACRES   BY  AGE 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY  CUT  WITH  PRICE 
MANAGED,    THINNED  AT  AGE  30. 
YEAR  WITHIN  GAME  30 

AGE (YEAR ) 

AGE  (  DECADE  )  0123456789  TOTAL 

0  657                8                9                8              11              12              12              11              12                8  748 

1  7              12                83875545  64 

2  8755888888  73 

3  0000000000  0 

4  0000000000  0 

5  0000000000  0 

6  0000000000  0 

7  0000000000  0 

8  0000000000  0 

9  oooooooooo  0 

10  OOOOOOOOOO  0 

11  OOOOOOOOOO  0 

12  OOOOOOOOOO  0 

13  OOOOOOOOOO  0 

14  OOOOOOOOOO  0 

15  OOOOOOOOOO  0 

16  OOOOOOOOOO  0 

17  OOOOOOOOOO  0 
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PAGE   TYPE  5 


STATUS   OF   FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY  CUT  WITH  PRICE 
MANAGED,   THINNED   AT   AGE  30. 

ALLOWABLE  CUTTING  ACTUAL   CUT  CUMUL   CUT  GRSTK   VOL  TOTAL  VOL 

CUT  AGE  CU.FT.  MBF  CU.FT.  MBF  CU.FT.  MBF  CU.FT.  MBF 

(1)  (2)  (3)  (4)  15)  (61  (7)  (8)  (9)  (101 


0 

0 

0 

0 

0 

0 

146122 

7210 

1 46 122 

7210 

1 

8 

110 

12179 

248 

12179 

248 

146122 

7210 

158301 

7458 

® 

\  \  \  7  Q 

496 

i£a!?7 

770k 

110 

} 

jj 

110 

7  a 

248 

4071  A 

n  l  n 
1  5'a 

liM  ?) 

71  Q7 

I  f 

1  Q1Q 

8202 

\  7-7 

1  4  A  1  7  7 

146122 

7191 

71  II  -7 

8449 

8 

110 

1 2  1 7  9 

7AQ 

l  7?a 

146122 

7172 

i  In 

717 

I??7 

7^1777 

717 

->\-> 

l  aqi 

\->rX 

9192 

i  in 

l  iflftl 

} jji 

Wr\ 

n7ifl? 

7777 

I?,T 

76^789 

10 

i  n 

121 

2 

1  1  QAf.7 

i II i ;i 

9687 

11 

5 

110 

11268 

214 

130935 

2667 

146122 

7268 

277057 

9935 

12 

4 

110 

10961 

207 

141896 

2874 

146122 

7306 

288018 

10180 

13 

5 

no 

11276 

215 

153172 

3089 

146122 

7336 

299294 

10425 

14 

5 

110 

11278 

215 

164450 

3304 

146122 

7365 

310572 

10669 

15 

7 

110 

11901 

261 

176351 

3565 

146122 

7350 

322473 

10915 

16 

8 

110 

12212 

254 

18B563 

3819 

146122 

7343 

334685 

11162 

17 

4 

110 

10976 

209 

199539 

4028 

146122 

7377 

345661 

11405 

IB 

8 

110 

12222 

255 

211761 

4283 

146122 

7369 

357883 

11652 

19 

12 

110 

13456 

305 

225217 

4588 

146122 

7315 

371339 

11903 

20 

7 

110 

11901 

247 

237118 

4835 

146122 

7313 

383240 

12148 

21 

3 

110 

12212 

254 

249330 

5089 

146122 

7305 

395452 

12394 

22 

12 

110 

13446 

304 

262776 

5393 

146122 

7251 

408898 

12644 

23 

1 1 

110 

11784 

300 

274560 

5693 

146122 

7200 

420682 

12893 

24 

12 

110 

13425 

301 

287985 

5994 

146122 

7148 

434107 

13142 

25 

12 

110 

13412 

299 

301397 

6293 

146122 

7094 

4475 19 

133B7 

26 

11 

no 

13101 

300 

314498 

6593 

146122 

7038 

460620 

13631 

27 

8 

110 

11755 

220 

326253 

6813 

146122 

7064 

472375 

13877 

28 

9 

110 

12061 

232 

338314 

7045 

146122 

7077 

4B4436 

14122 

29 

8 

110 

12037 

259 

350351 

7304 

146122 

7063 

496473 

14367 

30 

8 

110 

12179 

248 

362530 

7552 

146122 

7059 

508652 

14611 

STATUS   OF   FOREST    AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY  CUT  WITH  PRICE 
MANAGED,    THINNED  AT   AGE  30. 


NON  AGE   CLASSES,  OVERSTORY 


EAR 

STK 

0-9 

10-19 

20-29 

30-39 

40-49 

50-59 

60-69 

70-79 

80-89 

90-99 

100-109 

110-119 

120-129 

130-139 

140-1' 

(11) 

(  12  I 

(13) 

(  14) 

(15) 

I  16  ) 

(  17) 

(  18  ) 

(  19) 

(  20) 

(211 

(22) 

(23) 

(24) 

(25) 

(  26 

0 

0 

0 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

0 

1 

5 
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0 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

0 

2 

5 

0 

0 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

80 

0 

3 

6 

0 

0 

80 

80 

80 

80 

80 

80 

80 

79 

80 

80 

80 

0 

4 

6 

0 

0 

80 

80 

80 

80 

80 

80 

80 

79 

80 

80 

80 

0 

5 

6 

0 

0 

80 

80 

80 

80 

80 

80 

80 

79 

80 

80 

80 

0 

6 

7 

0 

0 

80 

80 

80 

80 

80 

80 

80 

78 

80 

80 

80 

0 

7 

7 

0 

0 

80 

80 

80 

80 

80 

80 

80 

78 

80 

80 

80 

0 

8 

7 

0 

0 

80 

80 

80 

80 

80 

80 

80 

78 

80 

80 

80 

0 

9 
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0 

0 

80 

80 

80 

80 

80 

79 

80 

80 

78 

80 

80 
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80 

80 
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3 
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80 

80 

79 

80 

79 

80 

78 

80 

80 

0 

13 

5 

4 

0 

80 

80 

80 

80 

79 

80 

79 

80 

78 

80 

80 

0 

14 

4 

5 

0 

80 

80 

80 

80 

79 

80 

79 

80 

78 

80 

80 

0 

15 
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6 

0 

80 

80 

80 

80 

79 
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79 

79 
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0 
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79 
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80 

79 

78 

80 

0 

20 

4 

7 

1 

80 

80 

80 

78 

80 

79 

79 

80 

79 

78 

80 

0 

21 

4 

6 

2 

80 

80 

80 

78 

80 

79 

79 

80 

79 

78 

80 

0 

22 

3 

6 

3 

80 

80 

80 

78 

80 

79 

80 

79 

79 

78 

80 

0 

23 

4 

5 

4 

80 

80 

80 

80 

78 

79 

80 

79 

78 

78 

80 

0 

24 

4 

4 

5 

80 

80 

80 

80 

78 

79 

80 

79 

78 

78 

80 

0 

25 

3 

4 

6 

80 

80 

80 

80 

78 

79 

80 

79 

79 

77 

80 

0 

26 

4 

3 

7 

80 

80 

80 

80 

78 

78 

80 

79 

80 

76 

80 

0 

27 

3 

4 

7 

80 

80 

80 

80 

78 

79 
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79 
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76 
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0 
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80 
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PAGE   TYPE  5 


STATUS   OF   FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHEL  T  bRWOOD  TEST 
TEST  1 

GAME     VARY   CUT   WITH  PRICE 
MANAGED,    THINNED  AT  AGE  30. 

AGE   CLASSES,  UNDERSTORY 


YEAR 

STK 

0-9 

10-19 

20-29 

30-39 

40-49 

50-59 

60-69 

70-79 

80-89 

90-99 

100-109 

110-119 

120-129 

130-139 

til) 

(12) 

(13) 

(14) 

(15) 

(  16) 

(  17  ) 

(  18  ) 

(  19  ) 

(  20  ) 

(211 

( 22 ) 

( 23 ) 

( 24  1 
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80 
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0 

0 
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13 
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PAGE   TYPE  5 

STATUS   OF   FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY   CUT  WITH  PRICE 
MANAGED,    THINNED   AT   AGE  30. 


STUMPAGE  PRICE 
100  CU.FT.  MBF 
(27)  (28) 


STUMP  AGE  INCOME 
ANNUAL  CUMULATED 
(29)  (30) 


AREA  COSTS 
ANNUAL  CUMULATED 
(31)  (32) 


VOLUME  COSTS 
ANNUAL  CUMULATED 
(33)  (34) 


2.50 


14.50 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


50 
50 
50 
50 
50 
50 
50 
50 
2.50 
2.50 


15.20 
17.80 
16.80 
13.40 
14.10 
17.40 
11.80 
11.10 
12.20 
12.90 


4025. 
4661  . 
4671. 
3584. 
3755. 
4846. 
2744. 
2608. 
3303. 
3480. 


4025. 

8686. 
13356. 
16940. 
20696. 
25541  . 
23286. 
30893. 
34197. 
37677. 


407. 
411. 
415. 
419. 
424. 
428. 
432. 
404. 
408. 
445. 


407. 

818. 
1233. 
1653. 
2076. 
2504. 
2936. 
3340. 
3748. 
4193. 


3  94. 
398. 
430. 
406. 
410. 
445. 
358. 
363. 
433. 
433. 


394. 

791. 
1221. 
1627. 
2037. 
2482. 
2840. 
3202. 
3635. 
4068. 


11 

12 
13 
14 
15 
16 
17 
18 
19 
20 


2.50 


2.50 


10.10 
8.30 
9.00 
10.90 
13.90 
13.10 
11.90 
12.70 
15.70 
13.60 


2404. 
1956. 
2183. 
2587. 
3830. 
3580. 
2705. 
3495. 
5064. 
3598. 


40080. 
42037. 
44220. 
46807. 
50637. 
54217. 
56923. 
60417. 
65481. 
69079. 


416. 
421. 
459. 
429. 
433. 
473. 
442. 
482. 
451. 
455. 


4610. 
5031. 
5489. 
5918. 
6352. 
6824. 
7266. 
7748. 
8199. 
8655. 


375. 
367. 
384. 
389. 
475. 
467. 
3B8. 
478. 
577. 
473. 


4443. 
4810. 
5194. 
5582. 
6057. 
6524. 
6912. 
7390. 
7967. 
8440. 


21 

22 
23 
24 
25 
26 
27 
28 
29 
30 


2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 
2.50 


12.10 
15.20 
16.10 
16.70 
19.60 
18.50 
14.70 
15.50 
17.10 
13.00 


3330. 
4896. 
5041. 
5299. 
6117. 
5775. 
3474. 
3841. 
4622. 
3486. 


72409. 

77305. 

82346. 

87645. 

93762. 

99538. 
103012. 
106853. 
111474. 
114961. 


497. 
465. 
469. 
512. 
479. 
483. 
527. 
493. 
498. 
577. 


9151. 

9616. 
10085. 
10597. 
11075. 
11559. 
12086. 
12579. 
13077. 
13654. 


490. 
592. 
590. 
599. 
6  00. 
609. 
451. 
481. 
543. 
525. 


8931. 

9523. 
10113. 
10712. 
11312. 
11921. 
12373. 
12853. 
13396. 
13921. 
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PAGE   TYPE  5 


STATUS   OF  FOREST   AT   END  OF   EACH  YEAR 
BATCH     SHELTERWOOD  TEST 
TEST  I 

GAME     VARY  CUT   WITH  PRICE 
MANAGED,    THINNED  AT   AGE  30. 


TOTAL  COST 
ANNUAL  CUMULATED 
(35)  (36) 


NET  INCOME 
ANNUAL  CUMULATED 
(37)  (38) 


CURRENT  VALUE 
GROWING  STOCK 
(  39) 


TOTAL 
NET  WORTH 
(401 


1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

21 

22 
23 
24 
25 
26 
27 
28 
29 
30 


801. 
809. 
845. 
825. 
833. 
873. 
790. 
767. 
841 . 
878. 

791. 
787. 
843. 
818. 
908. 
939. 
830. 
960. 
1028. 
929. 

987. 
1057. 
1059. 
1110. 
1079. 
1093. 

979. 

974. 
1041. 
1102. 


801  . 
1609. 
2455. 
3280. 
4113. 
4986. 
5776. 
6542. 
7383. 
8261. 

9053. 

9840. 
10683. 
11500. 
12408. 
13348. 
14178. 
15138. 
16166. 
17095. 

18082. 
19139. 
20198. 
21308. 
22387. 
23490. 
24459. 
25432. 
26473. 
27575. 


0. 

3224. 
3852. 
3825. 
2759. 
2922. 
3973. 
1955. 
1841. 
2463  . 
2602. 

1613. 
1169. 
1340. 
1770. 
2922. 
2641  . 
1875. 
2535. 
4036. 
2669. 

2343. 
3839. 
3981  . 
4189. 
5038. 
4682. 
2496. 
2867. 
3581  . 
2384. 


3224. 

7076. 
10902. 
13661 . 
16583. 
20556. 
22510. 
24351 . 
26814. 
29415. 

31028. 
32197. 
33537. 
35306. 
38228  . 
40870. 
42744 . 
45279. 
49315. 
51984. 

54327. 
58167. 
62148. 
66337. 
71375. 
76057 . 
78553. 
81420. 
85001 . 
87386. 


PAGE   TYPE  6 

PRESENT  WORTH  AND  RATE  EARNED 
BATCH     SHELTERWOOD  TEST 
TEST  1 

GAME     VARY  CUT  WITH  PRICE 
MANAGED,    THINNED   AT   AGE  30. 
YFARS    IN   PERIOD  30 


96878. 

101925. 
120557. 
112962. 

88388. 

93301. 
116607. 

76683. 

71842. 

79636. 

84554. 

64456. 
51493. 
56696. 
70769. 
92552. 
86459. 
77863. 
83539. 
104755. 
89233. 

78047. 

99832. 
105508. 
108907. 
128548. 
119690. 

93120. 

98806. 
109771. 

80629. 


96878. 

105149. 
127634. 
123864. 
102049. 
109884. 
137163. 

99193. 

96193. 
106450. 
113969. 

95484. 

83690. 

90233. 
106076. 
130780. 
127328. 
120607. 
128818. 
154070. 
141217. 

132374. 
157998. 
167656. 
175244. 
199924. 
195747. 
171673. 
180226. 
194772. 
168015. 


VALUE   OF    INITIAL   GROWING   STOCK  — $  96877.59 


VALUES  DISCOUNTED   TO   PRESENT  (DOLLARS) 


COMPOUND 

RATE 
(PERCENT) 

1.0 

1.5 

2.0 

2.5 

3.0 

3.5 

4.0 

4.5 

5.0 

5.5 

6.0 

6.5 

7.0 

7.5 

8.0 

8.5 

9.0 

9.  5 
10.0 
10.5 


FUTURE 
GROWING 
STOCK 

59820.71 

51583.58 

44513.08 

38439.42 

33218. 19 

28726.47 

24859. 51 

21528.02 

18655.80 

16177.78 

14038.37 

12190.02 

10592.04 

9209. 56 

8012.72 

6975.91 

6077.12 

5297.48 

4620.75 

4032.96 


ALL 
INCOMES 

98225.77 

91122.91 

84733.69 

78976.23 

73778.79 

69078.51 

64820.17 

60955.27 

57441.11 

54240.08 

51318.98 

48648.53 

46202.80 

43958.86 

41896.36 

39997.24 

38245.48 

36626.80 

35128.48 

33739. 18 


STnCK 
PLUS 
INCOMES 

158046.48 

142706.49 

129246.77 

117415.64 

106996.99 

97804.98 

89679.69 

82483.29 

76096. 91 

70417.86 

65357. 36 

60838. 55 

56794. 84 

53168.42 

49909. 08 

46973. 15 

44322.60 

41924.28 

39749. 23 

37772.15 


ALL 
COSTS 

23515.58 

21789.26 

20234.40 

18831.48 

17563.40 

16415.18 

15373.64 

14427.20 

13565.67 

12780.03 

12062.37 

11405.64 

10803.65 

10250.88 

9742.44 

9274.00 

8841.68 

8442. 04 

8072.00 

7728.84 


NET 
PRESENT 
WORTH 

37653.31 

24039.64 

12134.78 

1706.58 

-7444.00 

-15487.79 

-22571.54 

-28821.50 

-34346.35 

-39239.76 

-43582.60 

-47444.68 

-50886.40 

-53960.05 

-56710.95 

-59178.43 

-61396.66 

-63395.35 

-65200.36 

-66834.28 
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PAGE   TYPE  7 

COMPARISON  OF  ALTERNATIVES 
BATCH     SHELTERWOOD  TEST 
TEST  I 

MANAGEO,  THINNED  AT  AGE  30. 
COLUMN  10 


7*58. 
7706. 
7954. 
8203. 
8451. 


7458. 
7706. 
7954. 
8202. 
8449. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 
0. 
0. 
0. 


6 
7 
8 
9 
10 


8699. 
8947. 
9194. 
9442. 
9689. 


8698. 
8945. 
9192. 
9440. 
9687. 


0. 
0. 
0. 
0. 
0. 


10 
20 
30 
40 
50 


9689. 
12157. 
14615. 

0. 

0. 


9687. 
12148. 
14611. 

0. 

0. 


60 
70 
80 
90 
100 


110 
120 
130 
140 
150 


PAGE   TYPE  7 

COMPARISON  OF  ALTERNATIVES 
BATCH     SHELTERWOOD  TEST 
TEST  1 

MANAGED,  THINNED  AT  AGE  30. 
COLUMN  40 


105149. 
127634. 
123856. 
102001. 
109843. 


105149. 
127634. 
123864. 
102049. 
109884. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 

o. 
o. 
o. 


0. 
0. 
0. 
0. 
0. 


0. 
0. 
0. 
0. 
0. 


9 
10 


137152. 

99075. 

96107. 
106310. 
113796. 


137163. 

99193. 

96193. 
106450. 
113969. 


10 
20 
30 
40 
50 


113796. 
140494. 
166068. 

0. 

0. 


113969. 
141217. 
168015. 

0. 

0. 


60 
70 
80 
90 
100 


110 
120 
130 
140 
150 


Agriculture— CSU,  Ft.  CoH. 


47 


P  ns 

.  P3 

co 

73  73 

c  c 

ns  ns 


73  ^ 

cd  S1 

7  o 
a  pi 

>  ~  ^ 
CD  ftcNl 

-  <t  OO 

S§d 

tinS  -h 


,  O 

"  ns  S3 
Ph  O 

O 


:  S3 


CO 


to 
CD 


■n  ^ 


CO 


<r>  co  *»  -<-' 
M  t-  CO  CO 
0)  OS 


s  2„8 

ft  d  ^ 

e  a  • 

o  d  <o 

w  w  & 

CS  <1>  <u 

slu 

73  +->  to 

11" 

03  S3  -5 

»  g  H 
ns  .5  « 

«  M  £3 

S3  tS5 

to  £3 
•ST   -  o 
&  >  „ 

2*  S 
.2  Pi  73 

CD  c_i  CD 

Ph  to 
20  „ 
g  Puts 

o  .2  o 
>  ~  js 

S3  Sh 

73  a)  o) 
S3  JJ  ai 
ni  -h  en 

S  S3'  >> 
O  G  o 

W)  S3 
O  CD 

ft  6 


73  73 
S3  S3 
nS  nS 

-"ni 
M  d 
S3  S3 

S3  <5 

ea  . 

ft  CD 

-4-> 

-  S3 

co  a, 

*§ 

o  O 
u 

d  co 

.2  M 

nS  nS 
1-1  J3 

<d 

S3 

a>  cu 

OjO-fj 

a) 


«  s 

P 

£2  co 
op 

73  co 
«  2 

-  co 


CD 

nS  d 


a>  =s 
•a  ■£ 
2  ^ 


CO 

a>  -a 

s  § 

ns  a. 


■a  c 
"3  £ 

'>>  - 

S3 

•o  .2 

S3 

'  S3 

s 


co 


.2  rt 

73  co 
CD  V 


co 

«  5 

S3  ns 

1  ns  > 

lis 

^  .3  ft 
d  o  * 

n3  >Ph 


o  o 
S  c 

5  So 


CO 


ss  .a 

—  ^3 

ft 

a'S 

>  CO 


co  q2 

O  co 

"  I  8 

-O  g  CO 

o  <u 

S  «  o 

ft  CO 


CO  . 

cm  S3 

IC  O) 


=2  a 
©  6 


.0  x 

S3  g 

P  ns 

.  Pi 

co 

73  73 

S3  S3 

ns  ns 

-4-» 

T3  ^ 

7  o 

S3  pi 

<u 

0)  ftcN 

a  to 

Sg 


•Si 


ta) 

S3   i  « 

■g  «  co' 

y  ft^ 

J  S3  ns  S3 
<3d(  O 


73 

O  3 

CM 

gco 

co  co' 

<U  OS 


S,«  al  s^ 

§      .78  OP 

g  co-  ^2t3  co 
u  g  -S  §  S3  ® 

2  is  -  co 
I  ^  *|  §  ft 

3  %  co'  g,  !3  £ 

ss  ti  °  S  2  « 
.5  u  a  «  ?  a 

t3       ™  J3  co  ^ 

-  O  S3  co 
>    _  a)      >>  v 

"  rt  S  co  73 
g  S3  S3 
ns  !h  ns 


0)  3 

s  °: 

!S  cs" 

Co 

O 
"  ^ 
CO  cu 
<U  73 
~  C 

■°  S 

ns  n. 
+->  10 


S3 


OS 


5  «  «  5  ?  S  ^ 

Ph   [fl  w         «  i 

p   .  o  a,  B  cpS 

73  tj  ^  » 

O  2  rt  tl 

.S   g  73  co  t;, 

^   0)  CD  S 

S3  d  c2  co  b 

cd  cd  g  co  « 

"     5  °  to  V.  5R 

w  -4->   O  CD 

o  co  pi 


13 

Si- 
ns 
Ph 


S3 

ns  X5 
S3 

co  | 

CO 

CO 

73  +j 
O  CD 

t* 

>>  CD 

^  ns 
S3 
ns 

s 


co 


>  r 

s-1  S3 

cd  £3 

CO  CO 


u  ni 


g  «3  « 

*S  fl  2 

rn  S3  - 
X3  o 
ft 

'4  2 1 

a  c  s  s  .2 

o  S  o  ™  ■  ■ 


CO 

2  S 
g  co 

CD  . 
ns  o 


h   H   h   Ej   V  4J  ru 

ft  C  Mo  ft  co  m 


s?  S 

CO  „ 

CN  « 

UO  CD 

S 

..  CD 

73  EH) 

it  * 

<2  c 

x  2 

o  S 


s  ft 

r°  M 

P  00 
CO  S3 
P  nS 

Pi 

co 

73  73 

S3  S3 

ni  ns 
-*-> 

co  • 

Ih 

CD 

7  o 
S3  pi 

CD 

>  A 
CD  ftcM 

S3  [J  O 
•-1  *  00 

8  8  o 

sf°  o 

■gtf  co" 

•  S3  ns  S3 
<  C  Ph  © 
73  iS  U 

2  §  8  s 
5M>  : 

-    .  t*  S3 

co  co  ■» 

^  t-  CO  CO 
CD  C35 


Sh    '    CD  73  73 

2  &•  «  n 

°-  a3  H  r3 

SnS  "  rt 

fi     M  a5 

s  S  s  -s  g 

73  '-3  5"  ft  CD 
Sl^co-ft 

co  P  3 
ns  .5  O  S3 

<U  "  ns  2  M 

b  +i  a>  -S  ss 

ns  ns  , — i  n<  S3 

J3  u  2  2 

co  t3       S3  ^3 

ft  2 

J3  >         CD  4> 

2H  id  m£ 

S        CD   CD  *J 

JS  pi  73  "a 

a>  f_i  cu  S3 
»h  C  cd  ns 
f1"  to 

IP  -5  » 

2  W  73  ti  !- 

s  _,  o  .2  rt 

O  .5  9  73  co 

>  _  3  CD  CD 

S3  ^  S  co 

73  CD  CD  S3  co 

rH  ■*-»■*-»   M  O 

a  a  «  2  rt 
5  ^.S-s 


cd  5; 

X!  P 
+3  co 
o  p 


CD 
73 
CD 
-  CO 
U 
CD 
ft 
S3 

co 


^  +H 

-  5  S3 

tJ  ft 


o  ns 


ni 


S3  ns 
ns  > 


ST 


o 

co  <» 

CD  73 

rj  O 


73  S 


73  « 

S3 
"I 

•  •  CO 

co 

73  -4—* 

**  S3 
CD 


a  «d§ 

~h  5  si, 
a  o  * 


CD 

S3 
nS 

6 


CO 


S3  - 


O  CO 


d  > 


CD 


*   »   2  <B 


g  co 

CD  . 


W)  d 

2  2  S  t3  8  2  © 

ft  C  M  y  ft  it:  tt. 


CO 

S  2 

m  cd 


73  W)  2 

ns  g 

cm  g  *: 
x  «  c 
©  g  8 


as- 

P  w> 

W  S3 

P  ns 

.  Pi 

co 

73  73 

S3  S3 

ns  ns 


2t2 


?  o 
S3  pi 

cd  ftc-a 
S3  f>  o 

"H  ^-  00 

CO 


■    CD  73  73   £  <J 

m2  as  as  2p 
g£  «  ^^co 

g    --a  °p 

g   «  2°  2  73  CO 

h  g  -S  d  «  2 


•5  g 


03 


■S3  -S 
3  £ 
g  3 


CD 


CD 


■3  t  -  O 


■2  > 


CD 


2  & 
"■3< 


as 


sf?  ° 
•g(«  co" 

2°o-a3 

:  S3  ns  S3 
<3  2  CL  O 

73  «  " 

-S3  co  . 
O     >  r 
-  .  si  d 

CO  CO  *• 

i-  t>  co  co 

CD  OS 
>»tH 


o.2 

>  _ 

73 

S3 

ns  ^ 

6  * 
& 

o 

M 

o 


h  ^  a 

co  ft  ns  CO 

"3  S  01  • 

S  I  «s 

2^2-2 

lis* 
Ms  8 

d  co 

CD   5J   >s  a> 

_  &o^3  ^ 

Sh 

73  73   o     -  —I 

cd  S3  d  !2  ^  <m 

Pi  g  «  1  S  §t 
o  S  «  t<  a 

2   S  73   CO  ~H   3  ft 
e  CD  CD  a  o  ^ 

S3  u  a  <*>  a  S  Ph 

S  cd  S3  co  f 

*•  ±i  u  °  to' 
*->  CD  >— '  co  " 
•jH  <D  -(->   O  CD 

fc£  ?  u  «  pi 

f  io  .5  'a  °  » 

rt  ^3  o  +-> 

_r  ^  ft  d  > 
2  £  j  o  *j  S  S 
5    £  is  73  g  co 

O   CD  P 


Pi  73 


X!  .S 


J2 


d 

73  2 

S3 

CO  2 


73  *H 

S?  C 
O  CD 

d 


CO 


CD 


C  S  5  15  3  h2  o 

ft  C  00  o  ft  co  Ph 


^  cS 

CO  „ 

ti 
oq  g 

UO  CD 

6 
•  •  CD 
73  M  2 

S?  k 

-  S3  -S 
ns  e 

©  2  8 


IV 


